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PREFACE 

This manual describes the OASIS BASIC programming language interpreter /compiler 
available with the OASIS Operating System. 

It is intended to be a reference manual, that is, the user is assumed to have 
general programming skills. When this is the case this manual can instruct the 
user on the features and uses of OASIS BASIC. 

The OASIS BASIC language conforms to, and is an extension of, the American National 
Standard for Minimal BASIC, BSR X3.60. 

The experienced BASIC programmer may find the appendices sufficient for his use. 
However, OASIS BASIC offers many features not found in standard Dartmouth BASIC, 
ANSI minimal BASIC or other dialects of BASIC. 

This manual, named BASIC, like all OASIS documentation manuals, has the manual name 
and revision number in the lower, inside corner of each page of the body of the 
manual. In most chapters of the manual the last primary subject being discussed on 
a page will be identified in the lower outside corner of the page. 



Related Documentation 

The following publications provide additional information that may be required in 
the use of the OASIS BASIC language: 

OASIS System Reference Manual 

OASIS Text Editor Reference Manual 

OASIS EXEC Language Reference Manual 

OASIS MACRO Assembler Language Reference Manual 
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CHAPTER 1 

INTRODUCTION 

This reference manual describes the BASIC language as implemented in the OASIS 
Operating System. It is an interpreter /compiler language. This means that the 
advantages of an interpreter exist (ability to make changes to the source program 
and immediately re-execute, immediate mode, etc) along with the advantages of a 
compiler (faster execution, smaller program size on disk and in memory, and source 
program protection). 

1*1 Organization of This Manual 

This manual discusses each command or statement in a separate section of the 
appropriate chapter ("COMMANDS", "STATEMENTS", or "FUNCTIONS"). 

Each command or statement is described in four subsections: 

1. General form: defines the specific syntax of the statement or 
command. This section is enclosed in a box at the top of the page. 
Also included here is a "See also" reference listing commands or 
statements that have a similar or related function and might be used 
instead of the command or statement specified. 

2. Purpose: one or two sentences that summarize the purpose or general 
function of the statement or command. 

3. Coimnent: detailed description of the statement or command specifying 
any restrictions, exceptions or errors that may occur. 

4« Exanqiles: general examples of the various forms of the statement or 
command, if applicable. Invalid examples are also included, if 
meaningful. 

In addition, the appendices at the end of this manual give summaries of the 
statements, commands, functions, error messages and some general examples of BASIC 
programs. 

1*2 Documentation Standards 

In this documentation, the following standards will be used: 

* All verbs are spelled out even though BASIC only requires the first 
three characters of a verb. 

* Fields enclosed with angle brackets <> are required for correct BASIC 
syntax. 

* Fields enclosed with brackets [] are optional and not required for 
valid syntax. 

* Fields grouped in vertical columns or separated by vertical bars 
indicate that all are valid forms. 

* Any parenthesis shown are required for valid syntax. 

* The term <CR> indicates the entry of the key CARRIAGE RETURN. 
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1.3 BASIC Comand Modules 

The OASIS BASIC and RUN programs are held on disk in seven separate files. This is 
required due to the fact that program overlays are used. The five files containing 
the BASIC program must all reside on one disk. The two files containing the RUN 
program must both reside on one disk. The files and their primary functions are as 
follows: 

BASIC. COMMAND Initialization and set up. 

BASIC. OVERLAYl Editor and syntax analyzer. 

BASIC. 0VERLAY2 Compiler. 

BASIC. OVERLAYS Cross-reference generator. 

BASIC.0VERLAY4 Program execution and debugger. 

RUN. COMMAND Initialization and set up. 
RUN. OVERLAYl Run time monitor. 

1.4 BASIC Program File Types 

OASIS BASIC uses three different file types for programs. These file types are 
BASIC, BASICOBJ, and BASICCOM. 

A BASIC program with a file type of BASIC is a file in ASCII format and is usable 
by TEXTEDIT and EDIT as text files. A program with a type of BASIC may be loaded 
with the BASIC interpreter but may not be RUN, CHAINed, or LINKed to. 

A BASIC program with a file type of BASICOBJ is a file generated by the BASIC 
interpreter after the program has been syntax checked. This type of a file cannot 
be used by other system programs (except COPYFILE). A BASICOBJ file is a program 
that is "pseudo-compiled", that is, all kejrwords have been coded to reduce the 
storage requirements and to increase execution speed. Even though this type of a 
file is pseudo-compiled it is still lis table by BASIC and still has all remarks, 
variable names and line labels in it. This file type should be used for all source 
programs and is the default type used by the SAVE command. 

A BASIC program with a file type of BASICCOM is a file generated by the BASIC 
compiler after the program has been compiled. This type of file cannot be used by 
other system programs (except COPYFILE) and may only be executed with the RUN 
command. A BASICCOM file is a program that has had all remarks removed from it and 
all variable names have been reduced to codes (variables defined as COMMON are not 
affected) and all line label references have been changed to a shorted method of 
branching. 

1.5 Loading BASIC 

The BASIC command is a program module that is accessed by the Operating System 
through the OASIS Command String Interpreter (CSI). After CSI has displayed it's 
prompt character (>), the operator may enter a BASIC command as described below. 
CSI will load the BASIC interpreter and enter the edit mode, allowing you to load, 
execute, or edit any BASIC program. 

In the edit mode of BASIC, acceptable input is a command, an immediate statement, 
or a numbered statement. An immediate statement is one that is executed 
immediately, a numbered statement is stored in memory for execution at a later 
time. 
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1.6 BASIC and RUN Commands 

The OASIS BASIC command allows the user to access the BASIC interpreter/compiler to 
create, change, debug, execute or compile BASIC programs. The format of the BASIC 
command is: 

BASIC [<progra]&-i(iame> [(<c<nq>lle optlon8>[)]] 

Where: 

program-name Specifies the name of a BASIC program file that the user wishes to 
compile. This operand has the format <fn [.f t] [:f d] >, where: 

fn Indicates the file name of the BASIC program to be compiled. If 
omitted (i.e., the entire program-name operand is omitted), then 
BASIC is invoked in the immediate mode. 

ft Indicates the file type of the program to be compiled. Only 
BASIC programs with file type BASICOBJ can be compiled. 

fd Indicates the label of the directory or the name of the disk 
that the program file resides on. When omitted the normal 
search sequence for user programs is used. 

BASIC Compile Options 

PRINTER [n] Indicates that the program listing is to be output to the printer. 

TYPE Indicates that the program listing is to be output to the console. 

XEUEF Indicates that the cross reference table is to be generated and output 
with the program listing. 

Note 1: Compiled programs are saved on disk with file type BASICCOM. 

Note 2: The COMMON statement must be used to specify variables that are used by 
more than one segment of a compiled program. 

Since a compiled program does not have line numbers the listing from the compiler 
will include the relative address of each line. These address values are in 
hexadecimal and are displayed during execution if an error occurs. 

The OASIS RUN command allows the user to execute a compiled, BASIC programs. The 
format of the RUN command is : 

RUN <progra]ii name> 

The RUN command can only execute compiled programs — there is no immediate or 
command mode available to the user when this command is in control. 

BASIC Prompting Character 

When the BASIC interpreter /compiler is in immediate or command mode a hyphen (-) is 
displayed at the left side of the terminal, indicating that BASIC is awaiting a 
command. This is the prompting character for OASIS BASIC. 
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For example: 

>BASIC 

>BASIC GAMES 

In the second example no prompting hyphen is displayed because the program GAMES 
was compiled and saved as GAMES. BASICCOM:S. 
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FEATURES OF THE LANGUAGE 



2.1 Data Files 



OASIS BASIC supports three types of files: Sequential, Direct, and Indexed 
Sequential. Sequential files are character files in that they contain only ASCII 
characters and are generally used for print or report files. This file type can be 
used for INPUT or OUTPUT but cannot be updated. Records in this file type are of 
variable length. 

DIRECT files are binary files in that they contain any information, character or 
otherwise. This file type requires fixed length records due to the fact that 
records are accessed by using their relative record number. 

INDEXED Sequential files are binary files similar to DIRECT files and they have 
fixed length records but the records are accessed randomly or sequentially by using 
an ASCII key. 

2.2 Cursor Control 

Many types of terminals are "known" to BASIC and their various types of cursor 

control are handled by common functions (AT and CRT). Refer to the OASIS System 

Reference Manual , "ATTACH COMMAND", and the "Terminal Class Codes" Appendix for 
details. 

2.3 Chaining and Linking 

Chaining and linking allows very large programs to be segmented for execution in a 
system with a relatively small amount of memory. Chaining transfers control to the 
named segment and closes all open files. Linking transfers control to the named 
segment without closing any files. 

2.4 User Defined Control Keys 

User programs can test whether one of several different control keys were entered 
as input, and take appropriate action in the program. Refer to the chapter on User 
Definable Keys in this manual for details. 

2.5 Compatibility 

BASIC is upward compatible with Dartmouth BASIC and conforms to the proposed 
American National Standard for Minimal BASIC, BSR X3.60. Refer to Appendix H for 
information regarding this standard. 
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2.6 Other Features 

OASIS BASIC provides many other features not normally found in other micro-computer 

BASICS such as: 

* Multiple statements on one line. 

* Multiple line user defined functions (DEF FN-FNEND). 

* Line length of up to 255 characters. 

* Long variable names. 

* Line labels. 

* Error trapping (ON ERROR GOTO). 

* Complex IF THEN ELSE statements. 

* Multiple line IF-IFEND structure. 

* Multiple line WHILE-WEND structure. 

* Multiple line SELECT-CASE-CEND structure. 

* String handling with string length of up to 255 characters. 

* String arrays. 

* Matrix (array) input /output and assignment. 

* Formatted output (PRINT USING). 

* Formatting function. 

* Formatted input (LINPUT USING). 

* Interface to user written assembly subroutines (USR) . 

* Interface to system commands (CSI). 

* Interface to any device (GET, PUT, WAIT). 

* Bit manipulating logical functions. 

* Thirteen digit precision BCD (binary coded decimal) arithmetic 

* Floating point values in range 10^126 to 10^^-126 

* Integer arithmetic (-32767 to +32767). 

* Program debugging aids such as single step, break -points, etc. 

* Automatic line number entry. 

* Syntax analysis on statement entry. 

* Extensive set of string functions. 

* Compile option to compress and protect the program. 

* Cross reference listing of variables. 
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CHAPTER 3 

BEC(»fING FAMILIAR WITH BASIC 

This section assumes that you have loaded BASIC and that you have received the 
BASIC prompting character (-) , indicating that BASIC is waiting to perform whatever 
instuction you give. In order to make the most efficient use of your sessions with 
BASIC, you need to know several things abount communicating with the system. 

For the time being the specific statement, command and line syntax will be ignored. 
These concepts are discussed in the next chapter. 

You will communicate with the system by using its primary input/output (I/O) 
device, called the CONSOLE TERMINAL. This device will include either a printing 
mechanism or a video screen (CRT), as well as a keyboard, similar to that found on 
a typical electric typewriter. On a console terminal keyboard, however, there are 
a few symbols and extra keys which may be new to you. Note the position of "extra" 
keys, especially the ones marked "CONTROL" (or "CTRL", or "CNTRL" or something 
similar), "RETURN" (or "CARRIAGE RETURN", or "NEW LINE" or something similar), 
"RUBOUT" (or "DEL", or "BACKSPACE", or something similar), "ESC" (or "ESCAPE", or 
"ALTMODE"). 

3.1 Some Basic BASIC Concepts 

OASIS BASIC has two modes of operation: 

IMMEDIATE MODE or command mode, in which lines typed to the system are 
executed without delay; 

EXECUTION MODE or program mode, in which the system executes instructions 
which have been stored previously in the form of a PROGRAM. 

Prior to learning how to work with BASIC in these modes, you must understand 
certain concepts and terminology, which are explained in this section. 

A COMMAND is a special type of BASIC instruction which may be executed in immediate 
mode, not as part of a program. Commands generally provide services which are not 
meaningful or useful while a program is executing. 

For example, the command LIST generates a listing of the program currently in the 
BASIC program/data area of memory. (This is called the CURRENT PROGRAM.) It is a 
rare application which requires a program to list itself, and so the LIST function 
is a command. 

A STATEMENT is a BASIC instruction which may be used as part of a PROGRAM or in 
IMMEDIATE MODE. Typical among statements is PRINT, which causes information to be 
output to the console terminal. Statements begin with a VERB from which the 
statement derives its name. The verb may be followed by ARGUMENTS and keywords. 
An argument is a piece of information on which the statement operates, or which is 
used to modify the operation of the statement. For example, the string literal 
"HI" is the argument of the following statement: 

PRINT "HI" 

A BASIC program is structured as a sequence of LINEs, each containing one or more 
statements. A line starts with a LINE NUMBER, which is an INTEGER (that is, a 
whole number) in the range of 1 to 9999. A statement follows the line number, and 
the combination is called a PROGRAM LINE. A typical line is: 
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70 PRINT "THIS IS ONE STATEMENT. "<CR> 

More than one statement may exist on a program line, as long as individual 
statements on that line are separated by a backslant (\) character. Here is an 
example of a multiple-statement program line with three statements: 

100 LET A = \ LET B = 1 \ PRINT A,B 

All statements may be executed in immediate mode in order to get immediate results. 
This is accomplished by typing a statement without preceding it with a line number. 
Such a statement is called an IMMEDIATE STATEMENT, and is executed as soon as it 
has been completely typed (indicated by striking the RETURN key). For example, if 
you type: 

PRINT 3+3<CR> 

into BASIC, you will immediately get back 6 on the terminal. This ability to 
execute statements in immediate mode greatly facilitates debugging by allowing you 
to examine (PRINT) and modify (LET) the contents of variables when a bug occurs. 

Each command and statement has its own rules as to what constitutes its proper 
syntax and when it can be used correctly. 

3.2 BASIC Uses Upper Case 

BASIC requires that the instructions it executes be in upper case characters. To 
facilitate this, instructions typed in BASIC are translated to upper case before 
being stored for execution. For example, the following line is typed to BASIC: 

10 if al > 25 then print "Greater than" else goto 100<CR> 

That line is stored in memory in the following format: 

10 IF Al>25 THEN PRINT "Greater than" ELSE GOTO 100 

Note that all of the "keywords" have been translated to uppercase but the literal 
is left as is. Because of this you will not have to worry about the case mode of 
the instructions you type. 

3.3 Typing to BASIC 

Try typing some nonsense to BASIC: 

-ABCDEFGHIJK<CR> 

Be sure to strike the RETURN key after you finish typing a line to BASIC, as 

denoted by the <CR> symbol above. This is the signal for BASIC to accept and 

process what you've typed. If you fail to strike the RETURN key, BASIC will 
patiently wait forever for you to type more! 

BASIC should respond to your nonsense with the message: 

Unrecognized command 

In general, this message is BASIC'S way of saying "I don't understand you". It 
usually means that you typed the right thing incorrectly, or (as in this case) the 
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wrong thing altogether. This is an example of an ERROR MESSAGE. Such messages are 
sent to you in order to alert you to any difficulties which BASIC encounters as it 
attempts to carry out your instructions. The error message should provide a clue 
as to the nature of the problem, and imply the possible steps you might use to 
correct it. (Correcting computer problems is called "debugging". A problem itself 
is referred to as a "bug"-) 

Let's type something which BASIC will understand: 

-PRINT 25/2<CR> 

(Remember that the <CR> means to strike the RETURN key.) 

You should get the answer displayed on the terminal. 

Commands may be entered with abbreviations (such as LEN for the LENGTH command) but 
incorrect syntax or spelling errors will not be allowed and you will have to 
re-enter the command. 

Statements (immediate or stored) may also use abbreviations for the statement verb 
(such a PRI for PRINT). Statements, different from commands, do not have to be 
re-entered to correct spelling or syntax errors, just modified to the correct form. 

For example, try typing the statement: 

10 FOR I=1T0X<CR> 

BASIC will respond by displaying: 

Keyword Missing or mis-spelled 
0010 FOR 1=1 TOX 

The underscore character will be used to identify the cursor position. BASIC is 
"saying" that it recognizes the statement as a FOR statement but it can't find the 
keyword TOX. This is due to the fact that variable names may be more than one 
character long and the letters TOX could be a variable name. You must surround 
keywords and verbs with some delimiting character, usually a space. 

To correct the error in this statement, enter an I, space, <CR>, space, space, I, 
space, <CR>, <CR>. This is explained below. 

When an error is detected by the syntax analyzer the error message is displayed as 
above and an implied MODIFY command is executed with the cursor pointing to the 
location of the error. The correction just specified causes MODIFY to go into 
insert mode (the I character), insert a space at that location, exit the insert 
mode (the <CR>), advance two places (the space, space characters), go into insert 
mode again and insert a space, exit the insert mode, then exit the modify mode (the 
last <CR>). 



BASIC - 9 - 



BASIC REFERENCE MANUAL 



The following display illustrates this correction: 



0010 


FOR 


1=1 TOX 


0010 


FOR 


I=1T0X 


0010 


FOR 


1=1 TOX 


0010 


FOR 


1=1 TOX 


0010 


FOR 


1=1 TOX 


0010 


FOR 


1=1 TOX 


0010 


FOR 


1=1 TOX 


0010 


FOR 


1=1 TO X 


0010 


FOR 


1=1 TO X 



0010 FOR I = 1 TO X 



Enter I 

Enter space 

Enter <CR> 

Enter space 

Enter space 

Enter I 

Enter space 

Enter <CR> 

Enter <CR> 

Enter <CR> (display command) 



When you exit the implied MODIFY command the syntax of the statement is re-examined 
for errors. If no more errors are detected the statement is saved (or executed if 
an immediate statement) and control of BASIC returns to the mode it was in (in the 
above case it returns to the command mode). 

As another example, consider the following: 



-10 PRI SQR(23;NOW IS THE TIME;A$B$<CR> 
Missing parentheses 

0010 PRI SQR(23jNOW IS THE TIME;A$B$ 
0010 PRI SQR(23i.NOW IS THE TIME;A$B$ 
0010 PRI SQR(23)_jN0W IS THE TIME;A$B$ 
Comma required 



0010 PRI SQR(23) 

0010 PRI SQR(23) 

0010 PRI SQR(23) 

0010 PRI SQR(23) 

0010 PRI SQR(23) 

0010 PRI SQR(23) 

0010 PRI SQR(23) 

0010 PRI SQR(23) 

0010 PRI SQR(23) 

0010 PRI SQR(23) 



NOW _IS THE TIME;A$B$ 
NOW XS THE TIME;A$B$ 
NOW_IS THE TIME;A$B$ 
NOW IS THE TIME;A$B$ 
NOW IS THE TIME;A$B$ 
NOW IS THE TIME;A$B$ 
"NOW IS THE TIME;A$B$ 
"NOW IS THE TIME_£A$B$ 
"NOW IS THE TIME_iA$B$ 
"NOW IS THE TIME"_j_A$B$ 



Comma required 

0010 PRI SQR(23);"N0W IS THE TIME";A$B^$ 

0010 PRI SQR(23);"N0W IS THE TIME";A$B^$ 

0010 PRI SQR(23);"N0W IS THE TIME";A$;B$ 

10 PRINT SQR(23);"N0W IS THE TIME";A$;B$ 



Enter I 
Enter ) 
Enter <CR> 

Assumes NOW is variable name 

Enter back space 

Enter back space 

Enter back space 

Enter I 

Enter " 

Enter F; 

Enter I 

Enter " 

Enter <CR><CR> 

Enter I 
Enter ; 

Enter <CR><CR> 
Enter <CR> 



3 •A Consistency In Listing 

Because OASIS BASIC is an interpreter /compiler it saves statements in a compact, 
coded format. When a program listing is requested (or even a single line 
displayed) the coded format must be expanded to a display format. It does this 
expansion in a very consistent manner — consistency is desirable in programming: 

* All keywords and verbs are always spelled out fully. 

* All keywords and verbs are surrounded by spaces. 

* Multi-statement line separators are surrounded by spaces. 
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* Lists of variables, expressions, and line references are separated by 
their proper punctuation. 

* I/O channel specifications are surrounded by spaces. 

* Coiranas are added when the statement syntax requires. 

* Expressions are displayed without any embedded spaces. 

* The assignment operator is surrounded by spaces. 

* Any leading spaces in a line are maintained. 

* String literals are always surrounded with the double quotation mark 
character ("). 

For example, the following is performed (entry and display): 

-AUTO<CR> 

10 REM This is a remark<CR> 

20 IF (A$ > B$) * 5/ (5+ VALUE%) THEN GO SUB 1000\STOP<CR> 

30 A=23 * B<CR> 

40<CR> 
-LIST<CR> 

10 REM This is a remark 

20 IF (A$>B$)*5/(5+VALUE%) THEN GOSUB 1000 \ STOP 

30 A = 23*B 
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CHAPTER 4 

PS06SAMMING IN BASIC 

4.1 Structure of a BASIC Program 

A BASIC program consists of a set of statements constructed with the language 
elements and syntax described in the following chapters. Expressions, line 
numbers, labels, and statements are joined to solve a particular problem, with each 
line containing instructions to BASIC. 

4«I.I Syntax 

Syntax is a term refering to the structure of the parts of a statement and the 
punctuation characters separating those parts. As an example, the syntax of a 
sentence in the English language is: <subject> <verb> <object> <punctuation>. 
Unfortunately for elementary school children (and university professors) the syntax 
of sentences has many acceptable variations with each variation having variations 
and options and exceptions. 

On the other hand, computer languages are very structured with very specific syntax 
requirements for each statement (sentence). There may be options to the structure 
but there are n£ exceptions. 

4.1.2 Character Set 

OASIS BASIC uses the full ASCII (American Standard Code for Information 
Interchange) character set for its alphabet. This set includes: 

* Letters A through Z 

* Letters a through z 

* Numbers through 9 

* Special characters (see ASCII character set in appendix). 

This character set enables you to include any ASCII character as part of a program. 
BASIC translates the characters that you type into machine language; some 
characters are processed and some are left as entered. 

The BASIC editor translates characters in the following manner: 

* Letters A through Z - left as entered. 

* Letters a through z - left as entered if in a statement remark or 
string literal (enclosed in quotation marks); translated to upper case 
equivelent in all other contexts. 

* Non displayable characters (BELL, DCl, FS, etc) - Ignored. 

* Other control characters - 

BS treated as editing character (backspaces one position); is not 

entered into the actual line. 
HT when entered after line number and before the start of the 

statement: translated to five (5) spaces; when entered in middle of 

statement translated into one space. 
LF ignored. 
VT ignored. 
FF ignored. 
CR treated as end-of-line character. In auto entry mode the next line 

number will be displayed. 
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* Special characters: 

; When entered at start of statement is translated into REM. 
Statement separator for multi-statement line. 

4*1 'S Line Format 

The general format of a program line is as follows: 

line number label verb operand 

1010 LABEL: PRINT SQR(X''2+Y'*2) 

All lines in a BASIC program must begin with a line number. This number must be a 
positive integer within the range of 1 through 9999. A BASIC line number is a 
label that distinguishes one line from another within a program and determines the 
placement of that line in the program. 

Leading zeroes (as well as leading and trailing spaces) have no effect on the 
number. However, you cannot have embedded spaces within a line number. 

4.2 Statements 

BASIC statements consist of keywords that you use in conjunction with the elements 
of the language set: constants, variables, and operators. These statements divide 
into two major groups: executable statements and non-executable statements. 

At least one space or tab must follow all statement kejnwords in order for BASIC to 
recognize the keyword as such. For example: 

Acceptable 10 PRINT CUR.DATE$ 

Unacceptable 10 PRINTCUR.DATE$ 

Some keywords consist of two words such as PRINT USING, ON ERROR, MAT INPUT. These 
ke3rwords must also be separated by at least one space or tab character. Two 
exceptions to this are the GO TO and GO SUB keywords. It is acceptable to use the 
keywords GOTO or GOSUB without a separating space. 

Statement keywords are reserved, and therefore, cannot be used as a variable name 
(see appendix "Reserved Keywords"). However, keywords can be used as line labels. 

4.2. 1 Single Statement, Multi-Statement Lines 

You have the option of typing either one statement on one line or several 
statements on one line. 

A single statement line consists of: 

* A line number (from 1 to 9999). 

* An optional line label followed by a semicolon (:). 

* A statement keyword. 

* The body of the statement. 

* A line terminator. 

This is an example of a single statement line: 
10 PRINT A,BETA*T0DAY+3. 
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To enter more than one statement on a single line (multi-statement line), separate 
each complete statement with a backslant (). The backslant symbol is the statement 
separator. You must type it after every statement except the last in a 
multi-statement line. For example, the following line contains three complete 
PRINT statements: 

10 PRINT ALPHA$;BETA; \ PRINT CUR.DATE$ \ PRINT "Total =";TOTAL 

The line number labels the first statement in a line. Consequently, you must take 
this into consideration if you plan to transfer control to a particular statement 
within a program. For instance, in the previous example, you cannot execute just 
the statement 

PRINT CUR.DATE$ 

without executing PRINT ALPHA$;BETA; and PRINT "Total =";TOTAL 

All executable statements can appear in a multi-statement line. 
The rules for structuring a multi-statement line are: 

* Only the first statement in a series has a line number. 

* Only the first statement in a series can have a line label. 

* Successive statements must be separated with a backslant. 

4*3 Line Labels 

All OASIS BASIC lines have line numbers and the line may be referenced by other 
statements using the line number of the line (GOSUB, GOTO, etc). Lines may also 
have a line label. 

Line labels are useful for referencing lines when the line number is unknown, when 
you wish to "document" the function of a line or sequence of lines, etc. 

A line label consists of one or more letters, digits, or periods with the first 
character being a letter. There is no limit on the length of a line label but you 
should use labels that are short, but still meaningful (you have to type the entire 
label each time it is referenced). 

A line label must be unique within a program. When a line label is defined it must 
precede any statements on the line and be separated from the first statement by the 
colon character (:)• 

The following lines are all acceptable uses of line labels: 

10 MAINLINE: WHILE CONTROL = 

20 GOSUB INPUT. ROUTINE 

30 IF INPUT$ = "" GOTO ERRORS 

40 INPUT. ROUTINE: REM Subroutine to accept input 

It is permissible for a line label to be a keyword (no confusion arises due to the 
context in which a line label appears), however a label may not start with the 
letters REM. 
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4*4 Documenting Procedures 

BASIC allows you to document your methods, insert notes and comments, or leave 
yourself messages in the source program. This type of documentation is known as a 
remark or comment. There is only one way of inserting comments within a BASIC 
source program: the REM statement. 

BASIC ignores anything in a line following the keyword REM including a backslant 
character. The only character that ends a REM statement is a line terminator. 
Therefore, a REM statement must be the only statement on a line or the last 
statement in a multi-statement line. 

10 LET A=B REM Variable A receives current value of B 

You can use the semicolon character (;) instead of the keyword REM. BASIC will 
translate this into the keyword REM and display it as such whenever a listing is 
produced. 

You can use the line number of a REM statement in a reference from another 
statement, i.e. GOSUB. 

Another method of documentation, used in conjunction with remarks, is indentation. 
Any spaces or tabs entered between the line number and the first character of the 
line will be maintained by BASIC for listing purposes. This allows you to show the 
structure or hierarchy of the program. 

Remarks and/or leading spaces have no impact on a program after it is compiled (one 
of the functions of compilation is to remove these from the program). 

Refer to the appendix containing program examples for illustrations of 
documentation techniques. 

4*5 Entering and Modifying Programs 

OASIS BASIC allows programs to be entered, debugged, and modified while in the 
BASIC environment. Refer to the chapter on "BASIC Commands" for information on the 
use of the commands in editing a program (AUTO, CHANGE, DELETE, DISPLAY, DOWN, 
LIST, LOCATE, MODIFY, and UP). 

It is important to note that BASIC performs syntax analysis when the statement is 
entered, not when the statement is executed. This not only increases the speed of 
execution but also prevents any syntax errors from being entered. The main 
advantage of this pre-execution syntax analysis is that the program is free of all 
syntax errors even though some of the lines in the program have never been 
executed. 
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ELEMEHTS OF THE BASIC LANGUAGE 

In order to write programs in BASIC you must be familiar with the terms and phrases 
used to describe the program elements. You will probably recognize most of these 
terms from previous experience; however, the following sections define these terms 
within the context of OASIS BASIC. 

5.1 Constants 

A constant is an element whose value does not and cannot be changed during the 
execution of a program. 

There are three types of constants in BASIC: 

* Numeric (also called floating point numbers) 

* Integer (whole numbers) 

* String (alphanumeric and/or special characters) 

5* 1.1 Numeric Constants 

A numeric constant is one or more decimal digits, either positive or negative, with 
a decimal point specified. (The decimal point may be omitted when the constant is 
a whole number outside of the range +32767 to -32767.) 

The following are all valid numeric constants: 

25. 3.14159 234567 

-1234.01 .000002 32760. 

12345678901.23 -9876543210123 .1234567890123 

Numeric constants cannot contain any embedded space characters. 

BASIC accepts and maintains numeric constants within a range of 13 significant 
digits. 

When you type a numeric constant with more than 13 significant digits specified the 
excess, least significant digits will be truncated. 

It is possible to enter and maintain a number that is outside the range of 
precision by using an alternate format: 

<+ or ->x.xxxxxxxxxxxxE<+ or ->nnn 

Where: 

<+ or -> is the sign of the number. The plus sign is optional with positive 
numbers; the minus sign is required with negative numbers. 

X is the number with up to 13 significant digits. 

E represents the words "times 10 to the power of" 

nnn is the exponential value (the power of 10) in the range of +126 to -126 

This method of mathematical shorthand is called E format, floating point notation, 
or scientific notation. It is BASIC'S way of representing scientific notation. To 
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use this format, append the letter E to the number, follow the E with an optionally 
signed integer constant. This constant is the exponent — it can be but never 
blank. 

The following are all valid numeric constants, E format: 

1.2568E10 8.254681325257E-120 1235E-30 

-1.234567890123E-126 2358.256824798E2 1.2E60 

All E notation numeric constants are normalized after entry, that is, the decimal 
point (and the nnn value) is adjusted to be after the first significant digit. For 
example, entry of the constant 12345. 58E10 will be normalized to be 1.234558E+014. 
If a number entered in E notation can be expressed in normal notation, it will be. 
For example, entry of the constant 1.25E6 will be printed as 1250000. 

5* 1.2 Integer Constants 

An integer constant is a special type of numeric constant that is a whole number 
(no fractional part) written without a decimal point and in the range of +32767 to 
-32767. For example, the following numbers are all integer constants: 

1 -1234 

25 -15 100 

32767 -32767 10000 

Integers, though normally entered in decimal format (base 10) may be entered in 
hexadecimal format (base 16). When this is done the integer constant must be 
terminated with the letter H. Hexadecimal values may use the digits through 9 
and the letters A through F. A hexadecimal constant must start with a digit (use a 
zero if necessary). 

The following are all acceptable hexadecimal integer constants: 

1234H OABH 245H 

OFFFFH -1234H OFH 

The following are all unacceptable integer constants: 

12AB Invalid decimal or missing "H" 

OFFFGH G is not valid hexadecimal character 

123456 Outside of range of integer 

1.24 Not an integer 

12E10 Outside of the range of an integer 

5»1*3 String Constants 

A string constant (also called a string literal) is one or more alphanumeric and /or 
special characters, enclosed in a pair of double quotation marks (") or single 
quotation marks ('). Include both the starting and ending delimiters when typing a 
string constant in a program. These delimiters must be of the same type (both 
double quotation marks or both single quotation marks). 

Each character in a string constant can be a letter, a number, a space, or any 
ASCII character except a line terminator. The value of the string constant is 
determined by all of its characters. BASIC maintains every character between the 
delimiters exactly as you entered it into the source program. 
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BASIC does not normally print the delimiting quotation marks when a string constant 
is printed on the console, printer, or file. 

Quotation marks may be included as part of the text of a string constant by either: 
using the opposite type of delimiting quotation marks (i.e. single within double, 
double within single); or by doubling the embedded quotation mark ("" or "). 

The following are all acceptable string constants: 



String constant 



"This is a string constant" 

'This is also a string constant' 

"Look at Spot's spots." 

'Look at Spot"s spots.' 

"He said, ""Open the book.""" 



Internal representation 

This is a string constant 

This is also a string constant 

Look at Spot's spots. 

Look at Spot's spots. 

He said, "Open the book." 



5.2 Variables 

Variables differ from constants in that their values may change during the 
execution of the program. For this reason variables are refered to by their name, 
not their current value. BASIC uses the most recently assigned value of a variable 
when performing calculations. This value remains the same until a statement is 
encountered that assigns a new value to that specific variable. 

BASIC allows three types of variables: 

* Numeric variables (name terminated with letter, digit, or period) 

* Integer variables (name terminated with %) 

* String variables (name terminated with $) 

The type of a variable is determined by the name of the variable. BASIC allows 
variable names to be of unlimited length (a reasonable maximum is about two hundred 
characters due to the line length restriction of 255 charactes). 

Variable names for the three types of variables have a common syntax: 



First character must be a letter (A - Z) 

Subsequent characters are optional and may consist of letters (A - Z), 

digits (0 - 9) or the period character (.). 

The space character cannot be used as part of a variable name. 

The variable name cannot be a reserved word. 



The following are all acceptable variable names: 



TOTAL 
SUB. TOTAL 
SUB. TOTAL 1 
A 



SUM 
SUMl 

CUST.NAME$ 
INDEX% 



INTEREST 
PRIME. INTEREST 
P. INT 
BO 
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The following are all unacceptable variable names: 

123A Must start with letter 

A$ONE Only special character allowed is period 

PRINT Reserved word 

SQR Reserved word 

A variable name is identified as one of the three types of variables by a 
terminating type character. This type character is part of the name and makes the 
name different from a variable name with a different type character- For example, 
the following three variable names each refer to a different variable: 

CUSTOMER (numeric variable) 

CUSTOMER% (integer variable) 

CUSTOMER$ (string variable) 

5 •2.1 Numeric Variables 

A numeric variable is a named location in which a single numeric value is stored. 
Numeric variables contain numeric (floating point) values. A numeric variable is 
identified by a variable name (discussed above) without a terminating type 
character (last character is a letter or digit). 

The following are all acceptable numeric variable names: 

A Al B9 

COUNT INDEX RECORD. NUMBER 

MAXIMUM MINIMUM TOTAL 

The following are all unacceptable numeric variable names: 

6 TOTAL. RECORD*COUNT 

9T0TAL lA TWO/3 

When a numeric variable is first defined its value is set to zero (0). Execution 
of the RUN instruction clears all variables. If you require an initial value other 
than zero you must assign it with the LET statement. 

Note: Because other BASIC languages may not set all 
variables to zero before program execution you should 
not rely on this feature. Good programming practice 
dictates that you initialize all variables at the 
beginning of the program. 

5.2.2 Integer Variables 

An integer variable, similar to a numeric variable, is a named location in which a 
single integer value is stored. Integer variables contain integers (whole, 
non-fractional values). An integer variable is identified by a variable name 
(discussed above) with a terminating type character of a percent (%) symbol. 

The following are all acceptable integer variable names: 

A% Al% INDEX% 

RECORD% RECORD. NUMBER% CODE% 
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The following are all unacceptable integer variable names: 

A B2 1T0TAL% 

TOTAL 1$ NAME$ONE REG. INDEX 

When an integer variable is first defined its value is set to zero (0). Execution 
of the RUN instruction clears all variables. If you require an initial value other 
than zero you can assign it with the LET statement. 

An integer variable always contains an integer value (see integer constants for 
restrictions). If a numeric constant or variable is assigned to an integer 
variable, BASIC first truncates the fractional part of the floating point number. 
If the resulting whole number is outside the range of an integer (+32767 to -32767) 
the number is set to 32767 with the proper sign and an error occurs (refer to the 
ON ERROR GOTO statement and the appendix on error codes). 

When you assign an integer variable or constant to a numeric variable BASIG will 
print the numeric value as an integer but maintains it as a floating point number 
internally. 

5.2.3 String Variables 

A string variable is a named location in which a single alphanumeric string of 
characters is stored. A string variable is identified by a variable name 
(discussed above) with a terminating type character of the dollar sign ($). 

The following are all acceptable string variable names: 

A$ B5$ NAME$ 

GUST.NAME$ GITY$ DESG$ 

GUST. CITY. STATE. ZIP$ DEBIT. CREDIT$ 

The following are all unacceptable string variable names: 

A IB GOUNT% 

GUST-NAME $ $NAME AB 

Strings have a value and a length. BASIG initializes all string variables to a 
length of zero — referred to as a null string — when a string variable is first 
referenced. During the execution of a program the length of a character string 
associated with a string variable can vary from zero to a limit of 255. 

5.3 Array Variables 

An array is a list or table of numeric, integer, or string variables with one or 
two subscripts. The subscript is a pointer to a specific location in a list or 
table in which a value is stored. You designate the pointer with either one or two 
subscripts enclosed by parentheses. When there are two subscripts they are 
separated by a comma. The value stored may be a numeric, integer, or string value, 
depending upon the array type. 
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To name an array start with a numeric, integer, or string variable name: 
ITEMS ITEMS % ITEMS $ 

Then add the subscript reference: 

ITEMS (4) ITEMS%(2,10) ITEMS$(15) 

ITEMS (4) refers to the fifth value in the array ITEMS. It is the fifth value 
because the first value has a subscript of zero (a number base of 0). This may be 
changed by the OPTION statement. 

ITEMS%(2,10) refers to the value "indexed" by row two, column ten in the table 
ITEMS %. 

As mentioned, an array may have one or two subscripts. The number of subscripts is 
refered to as the number of dimensions of the array (see DIM statement). An array 
defined with one dimension must always be referenced with only one subscript. 
Likewise, an array defined with two dimensions must always be referenced with two 
subscripts. 

Array names must be unique from variable names (the subscript references are not 
actually part of the name). This means that after the array ITEMS has been defined 
all references to a variable ITEMS are unacceptable because the name ITEMS is an 
array and must have subscripts. (The MAT statements are an exception to this 
because they only operate on arrays.) An attempt to use a variable name as an array 
and a non-array will result in an "Inconsistent usage" error. 

Arrays are defined either explicitly with the DIM statement, or implicitly by using 
the array name in an assignment statement (LET) or as a term in an expression. 
When an array is defined implicitly it is automatically dimensioned with an upper 
subscript of ten with one or two dimensions, depending upon the number of 
supscripts in the array reference. For example: 

LET ITEMS (4) = 1234 

will dimension the array ITEMS to have eleven elements with subscripts: 0, 1, 2, 3, 
4, 5, 6, 7, 8, 9, and 10. 

LET ITEMS%(2,7) = 23 

will dimension the array ITEMS% to have two dimensions with maximum subscripts of 
10 in each dimension. This equates to 121 elements (OPTION BASE 0) or 100 elements 
(OPTION BASE 1). 

If it is desired to have either fewer or more elements in an array you must use the 
DIM statement. 

References to an array with a subscript greater than the size that the array was 
defined as will cause an error to occur (see ON ERROR GOTO statement and the 
appendix on error messages). 

Most people find it inconvenient to work with a subscript number base of zero. For 
that reason the OPTION BASE 1 statement is provided. Refer to the OPTION statement 
for details on its use. 
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Note: It is always a good practice to use the DIM 
statement to define the size of an array to avoid 
wasting storage space and to document the arrays and 
dimensions in use. 



Array Exaiq>le 



As an example let the array ITEMS% be dimensioned to a size of 4 rows by 8 columns. 
To accomplish this you would use the statement: DIM ITEMS%(3,7) and the layout of 
the array would be: 
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5*4 Functions 

A function, in BASIC, is a special type of variable or constant. It is a 
predefined (or user defined) series of numeric and /or string operations. 

A function name looks very much like an array name except that instead of one or 
two subscripts the function has zero or more "arguments". The arguments of a 
function are values that the function operates on or returns to the statement 
referencing it. 

There are three types of functions: 

* Intrinsic functions 

* User defined functions 

* USR functions 

A function is used just like a variable or constant with one exception: a function 
cannot be assigned a value. 

The following are all acceptable function names: 



SQR(25) 
INT (TOTAL) 
FNA$(A1$,B2) 
USR(3,A$) 

5 •4*1 Intrinsic Functions 



Intrinsic - return square root of 25 
Intrinsic - return integer value of TOTAL 
User defined function 
USR subroutine function 



Intrinsic functions are functions that are an integral part of BASIC and need not 
be defined by the programmer. 

The intrinsic functions provided with OASIS BASIC include functions to perform 
trigonometric operations, algebraic operations, general string operations, general 
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numeric operations, logical operations, and screen control operations. 

For a detailed description of the intrinsic functions refer to the chapter 
"Functions" later in this manual. 

Intrinsic function names are all reserved words and as such, cannot be used as 
variable names. (See appendix on "Reserved Words".) 

5. 4.2 User Defined Functions 

A user defined functions is one that must be defined by the programmer in each 
program. 

A user defined function name always starts with the letters FN. 

For a description of how to write a user defined function refer to the DEF 
statement . 

When a reference is made to a user defined function name and that function is not 
defined with a DEF statement the reference will be interpreted as an array 
reference. This may cause an error when the function arguments are analyzed as 
subscripts . 

5.4.3 USR Functions 

A USR function is a call to a user written, assembly language, subroutine. 

There can only be one USR function available at any one time, although it may have 
several "entry points". 

Refer to the OPTION USR statement for details on the USR function. Refer to the 
OASIS MACRO Assembler Language Reference Manual for details on writing a USR 
function. 

5.5 E:^presslons 

Expressions are used extensively throughout this manual and within BASIC itself. 
Basically an expression is the specification of a series of operations to be 
performed on variables, constants, and functions, resulting in one value. 

The use of an expression in BASIC is similar to expressions you use in your 
everyday work. For example, the term "work week" is used in estimating the time it 
takes to do a particular job. To determine the meaning of the term "work week" you 
normally multiply the number of hours a person works in a day by the number of days 
he works in a calendar week (normally 8 hours by 5 days). That is an example of an 
expression. Of course, in BASIC, you don't exactly use the same wording but it is 
quite similar: 

LET WORK. WEEK = HOURS * DAYS 
In BASIC there are several types of expressions: 

* Arithmetic expressions 

* String expressions 

* Logical expressions 

* Relational expressions 
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The type of an expression is determined by the type of operations it performs and 
the type of the constants, variables, or functions that it performs the operations 
on. 

An expression can be as simple as a single constant or as complex as several 
hundred terms and operators. 

The following are examples of expressions in BASIC: 

2.345 Arithmetic expression 

A*SQR(GIRTH%) Arithmetic expression 

NAME$&"abcdefg" String expression 

"Name: "&SPACE$(4)&NAME$ String expression 

A OR B Logical expression 

NOT TRUE% Logical expression 

NAME1$ > NAME2$ Relational expression 

CAT <= (BIRD AND DOG) Relational expression with 

logical subexpression 

An expression is composed of terras (constants, variables, and/or functions) and 
operators (+, *, &, etc). Operators are either binary operators (operate on two 
terms) or unary (operate on one term). An example of a binary operator is the 
multiplication operator (*). An example of a unary operator is the negative 
operator (-). Some operators can be either binary or unary such as the plus 
operator (+) . 

Expressions are frequently used in BASIC assignment statements (LET) but there are 
many other uses for expressions. The syntax of each of the statement descriptions 
specifies where an expression can be used and what type of expression is allowed. 

Although there are four distinct types of expressions many expressions used in a 
BASIC program are generally a combination of two or more types of expressions. 

5*5-l Arithmetic Expressions 

The arithmetic expression is the most common type of expression. An arithmetic 
expression has an arithmetic value (integer or floating point) and is defined as: 

<arithiDetic tenii> [<arith]Detic operator> <aritliiQetic tenii>] 

Arithmetic term 

An arithmetic term may consist of any of the following: 

Numeric constant 
Integer constant 
Numeric variable or array 
Integer variable or array 
Numeric function 
Integer function 
Logical expression 
Relational expression 
Arithmetic expression 
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Arithmetic operators 

Operator 



Function 

Exponentiation 

Multiplication 

Division 

Addition (or unary positive) 

Subtraction (or unary negative) 



English 

raised to the power 

times 

divided by 

plus 

minus 



An arithmetic expression whose terms are mixed in type (both integer and floating 
point) yields a floating point value. An arithmetic expression whose terms are the 
same type (all integer or all floating point) yields a value of the same type. 

You cannot place two arithmetic operators together unless the second operator is a 
unary minus or unary plus. 

The following are examples of valid arithmetic expressions: 



A% 

A%+23 

SUB . TOTAL+CURRENT*UNIT . PRICE 

ONE%*THREE 

+1/-4 

PI*RADIUS+2 

3*4/(PI*R2) 



Integer result 
Integer result 
Numeric result 
Numeric result 
Numeric result 
Numeric result 
Numeric result 



Note that the last example uses parentheses. Parentheses may be used anytime to 
clarify the sequence of operations or to change the sequence (see section on 
"Evaluating Expressions" below). 

5 .5 .2 String Ei^ressions 

A string expression has a string value and operates only on string terms. 

String term 

A string term may consist of any of the following: 

String constant 
String variable or array 
String function 
String expression 

String operator 

A string operator may consist of: 
Operator Function 



& 
[n:m] 



Concatenation 
Substring 



English 

is concatenated with 
from character n 
through m (unary operator) 
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The concatenation operator allows two strings to be joined together. Thus 
"ABCDEF"&"GHIJKLMN" produces ABCDEFGHIJKLMN. The concatenation operator always 
operates on two terms (binary operator). 

The substring operator extracts characters from a string. The n in the operator 
represents the starting character position; the m in the operator represents the 
ending character position. The result of a substring operation is always a string 
of length m-n+1, even when one or both of n and m are greater than the current 
length of the string being operated on. The m value must be greater than or equal 
to the n value. The substring operator is a unary operator that operates on the 
preceding term, rather than the following term like other unary operators. The 
substring operator may be followed by the concatenation operator. 

The following are examples of string expressions: (assume all string variables 
contain the constant "ABCDEFGH") 

Expression Result 



NAME$ ABCDEFGH 

"John Doe" John Doe 

A$&"Message" ABCDEFGHMessage 

CITY$&", "&ST$&" "&STR$(ZIP%) ABCDEFGH, ABCDEFGH 12345 

A$[2:4] BCD 

'"'&ALPHA$[4:9]&ALPHA$[11:L2]&'"' "DEFGH " 

(A$&B$ [5:9]) [3:10] CDEFGHEF 

Note that in the last example parentheses were used. Parentheses are discussed in 
the section "Evaluating Expressions" below. In this example the parentheses are 
used to produce a "sub-expression" for the second substring operator. 

The following are invalid string expressions: 

A$/"ABCD" Cannot include arithmetic operator 

A$[4:l] Invalid substring reference 

A$>B$ Relational expression (see below) 

A$&123 Cannot include arithmetic term 

A$[2:3]& Concatenation requires two terms 

5 •5*3 Logical Expressions 

A logical expression operates on integer values and produces an integer value. A 
logical expression is defined as: 

<arlth]iietlc tenii> <loglcal operator> carlthmetlc ter]n> 

Arithmetic term was defined above in the section "Arithmetic Expressions". 
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Logical operators 

A logical operator is any of the following: 
Operator Function 



NOT Invert bit in one term (unary) 

AND Bit on in both terms 

OR Bit on in either term 

XOR Bit on in only one term 

IMP Bit on in second term only if on in first term 

EQV Bit either on in both terms or off in both terms 

Logical expressions are comparisons between the corresponding "bits" of the two 
terms of the expression. A bit is a binary (either on or off) piece of 
information. An integer value is composed of sixteen bits. A decimal integer is 
expressed in bits by converting the number to base two notation and adding any 
leading binary zeros, if necessary. The following is a list of some equivalent 
values in decimal and binary: 



Decimal 


Binary bits 





00000000 00000000 


1 


00000000 00000001 


5 


00000000 00000101 


23 


00000000 00010111 


100 


00000000 01100100 


32767 


01111111 11111111 


-32767 


10000000 00000000 


-1 


11111111 lUlllU 



Note that a decimal zero has all zero bits and a decimal minus one has all one 
bits. This relationship between decimal and binary is used in the result of 
relational expressions, discussed in the following section. 

The terms of a logical expression must be integers. When the terms are floating 
point in value BASIC will integerize them before the logical operation is 
performed. 

Logical expressions are valid wherever arithmetic expressions are allowed in BASIC, 
however, both terms must be integers (floating point terms will automatically be 
"fixed"). 

The following tables are called truth tables. They show graphically the results of 
the logical operations for every possible combination of two bits. 
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Logical Truth Tables 

OR 



1 A% 


NOT A% 1 


1 A% 


B% 


A% 


OR B% 1 


1 


1 1 


1 







1 


1 1 


1 


1 


1 




1 1 






1 1 







1 1 






1 1 


1 




1 1 



AND 



XOR 



1 A% 


B% 


A% 


AND B% 1 


1 A% 


B% 


A% XOR B% 1 


1 







1 


1 





1 


1 


1 




1 


1 


1 


1 1 


1 1 







1 


1 1 





I 1 


1 1 


1 




1 1 


1 I 


1 


1 



IMP 



EQV 



1 A% 


B% 


A% 


IMP 


B% 1 


A% 


B% 


A% 


EQV B% 1 


1 







1 












1 1 


1 


1 




1 







1 




1 


1 1 












1 







1 


1 1 


1 




1 




1 


1 




1 1 



The following are examples of valid logical expressions: 

NUM1% OR NUM2% 

1% AND 23 

1% AND (NUMBER XOR TOTAL) IMP TEST% 

(A AND B) OR (A AND C) 

STRING $ >= "A" AND STRING $ <= "Z" 

Note that in the next to the last example parentheses were used. Parentheses are 
discussed in the section "Evaluating Expressions" below. In this example the 
parentheses are used to specify the sequence of evaluation. 

The following are all unacceptable logical expressions: 



STRING $ OR "HELP" 
NUM1% AND OR NUM2 



Must be arithmetic terms 
Binary operators cannot be 
adjacent 



Logical expressions are normally used to evaluate terras that are the result of 
relational expressions (bits all on or all off); however, since the logical 
expression does compare all sixteen bits of each of the terms there are many other 
uses for logical expressions. One of the more common of these other uses is binary 
coded information or "bit swtiches". 
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Some examples will illustrate how the logical operators work on non-relational 
values : 



15 AND 14 



10 OR 23 



NOT 153 



25 XOR 13 



29 XOR 29 



234 EQV 3429 



56 IMP 720 



0000000000001111 
AND 0000000000001110 

0000000000001110 

0000000000001010 
OR 0000000000010111 

0000000000011111 

NOT 0000000010011001 

1111111101100110 

0000000000011001 
XOR 0000000000001101 

0000000000010100 

0000000000011101 
XOR 0000000000011101 

0000000000000000 

0000000011101010 
EQV 0000110101100101 

1111001001110000 

0000000000111000 
IMP 0000001011010000 



15) 
14) 

14) (True) 

10) 
23) 

31) (True) 

153) 

-154) (True) 

25) 
13) 

20) (True) 

29) 
29) 

0) (False) 

234) 
3429) 

-3472) (True) 

56) 
720) 



1111111111010111 (-41) (True) 

As you can see there doesn't appear to be a relationship between the decimal terms 
and the decimal result of the expression; however, using the binary representations 
of the integers (as BASIC does) there is a definite. Boolean, relationship. This 
can be utilized to make an integer value contain sixteen, binary (on/off) switches. 
When using binary switches the logical expressions can be utilized to set or mask 
the number to expose the bit switch desired. 

5 .5 .4 Relational Expressions 

A relational expression operates on numeric or string terms and produces a sixteen 
(16) bit integer value of -1 (true - all bits on) or (false - all bits off). A 
relational expression is defined as: 

<arlthiDetlc tenn> <relatlonal operator> <arltluDetlc teni> 

or 

<strlng tenn> <relatlonal operator> Cstrlng teni> 
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Arithmetic and string terms were defined above under the sections "Arithmetic 
Expressions" and "String Expressions" respectively. 

Relational operators 

A relational operator is any of the following: 
Operator Function 



> Greater than 

>= Greater than or equal to 

< Less than 

<= Less than or equal to 

= Equal to 

<> Greater than or less than (unequal to) 

The following are all acceptable relational expressions: 

STRING$ > "HELLO" String relation 

NUMl <= NUM2 Numeric relation 

NUMBER% <> 225*(5-ONE) Numeric relation with 

arithmetic sub-expression 
539 = ONE Numeric relation (not assigment) 

The following are all unacceptable relational expressions: 

"Goodbye" <> 25 Can't mix string with numerics 

NUMl # NUM2 Invalid operator 

5*5.5 Expression Evaluation 

BASIC evaluates expressions according to operator precedence. Each arithmetic, 
string, logical, and relational operator joining an expression has a predetermined 
position in the hierarchy of operators. The operator's position tells BASIC when 
to evaluate the operator in relation to the other operators in the same expression. 

Parentheses may be used to change the sequence of evaluation of an expression. 
Nested parentheses (one set of parentheses within another) may be used to cause the 
innermost subexpression to be evaluated first. 

Parentheses may also be used as a documentation aid to clarify a complex 
expression. 

The following table lists all of the expression operators in the hierarchy of 
evaluation. 
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Operator Precedence 



1 operator 


Hierarchy | 


1 


1 


1 ^ (exponentiation) 


1 1 


1 f unct ions 


2 1 


1 substringing 


2 1 


1 + (unary) 


3 1 


J - (linary) 


3 1 


1 * (multiplication) 


4 1 


1 / (division) 


4 1 


1 + (addition) 


5 1 


1 - (subtraction) 


5 1 


1 & (concatenation) 


5 1 


1 > (greater than) 


6 1 


1 >= (greater or equal) 


6 1 


1 < (less than) 


6 1 


1 <= (less then or equal) 


6 1 


1 = (equal) 


6 1 


1 <> (unequal) 


6 1 


1 NOT 


7 1 


1 AND 


8 1 


1 OR 


9 1 


1 XOR 


10 1 


1 EQV 


11 1 


1 IMP 


12 I 



Notice that some operators have the same hierarchy number. This means that they 
are equivelent in precedence and will be evaluated in a left to right manner. This 
also applies to an expression with more than one occurence of the same operator. 

As an example, consider the following expression: 

A = 152+122-35*8 

BASIC evaluates this expression in five, ordered steps: 



1. 152 = 225 

2. 122 = 144 

3. 35*8 = 280 

4. 225+144 = 369 

5. 369-280 = 89 
Result is 89 



Exponentiation (left most) 

Exponentiation (next) 

Multiplication 

Addition 

Subtraction 



Arithmetic expressions with mixed arithmetic types (floating point and integer) 
will "float" all of the terms before expression evaluation. 

As mentioned, parentheses can alter the sequence of evaluation (and possibly, the 
result). Consider the following, similar expressions and evaluations: 
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252+302/2 (252+302) /2 

1. 252 = 625 1. 252 = 625 

2. 302 = 900 2. 302 = 900 

3. 900/2 = 450 3. 625+900 = 1525 

4. 625+450 = 1075 4. 1525/2 = 762.5 
Result is 1075 Result is 762.5 

Note that in the above precedence table the relational operators have precedence 
over the logical operators. 

Consider the following expression and evaluation: 

"A">"B" OR "A"<="D" 

1. "A">"B" = 0000000000000000 (false) 

2. "A"<="D" = -1 1111111111111111 (true) 

3. OR -1 = -1 1111111111111111 (true) 
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Sometimes the format of output is as important as the content. BASIC provides a 
means of controlling this format with the PRINT USING statement and the FORMAT$ 
function. Both the statement and the function allow you to control the appearance 
of data, thus enabling you to create formatted list, tables, reports, and forms. 



The following example programs print a series of numbers. One program 
PRINT statement and the other uses the PRINT USING statement. 

0005 MASK$ = "//,#//##//#//.////-" 
0010 PRINT USING MASK$,1 
0020 PRINT USING MASK$,10 
0030 PRINT USING MASK$, 123.5 
0040 PRINT USING MASK$,100 
0050 PRINT USING MASK$,. 23433 
0060 PRINT USING MASK$, 1000000 
0070 PRINT USING MASK$,-3 

-RUN 

1.00 

10.00 

123.50 

100.00 

0.23 

1,000,000.00 

3.00- 



uses the 



0010 PRINT 


1 


0020 PRINT 


10 


0030 PRINT 


123.5 


0040 PRINT 


100 


0050 PRINT 


.23433 


0060 PRINT 


1000000 


0070 PRINT 


-3 


-RUN 




1 




10 




123.5 




100 




0.23433 




1000000 




-3 





As can be seen the PRINT statement left justifies numbers, performs no rounding, 
and indicates negative values with a leading, floating, minus sign; PRINT USING 
(and the F0RMAT$ function) allows you to format numbers in several ways, making it 
easier to read and intepret the output. 

There are several number formatting functions that the PRINT USING statement and 
the F0RMAT$ function allows you to specify: 

* Number of significant digits. 

* Location of decimal point. 

* Exponential format. 

* Inclusion of special symbols (asterisk fill, dollar sign, commas, leading 
zeros) . 

* Alternate methods of indicating negative values (trailing sign, < >, 
trailing DB or OR) . 



There are also several 
allows you to specify: 



string formatting functions that the PRINT USING statement 



* Number of characters. 

* Left justified format. 

* Right justified format. 

* Center justified format. 

* Extended format. 

All of the formatting functions for the PRINT USING statement and F0RMAT$ function 
are specified by using a mask that contains the formatting information. For 
details on the general syntax of the PRINT USING statement and F0RMAT$ function 
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refer to their respective sections. 

PRINT USING and FORMAT Masks 

PRINT USING and FORMAT$ masks are string expressions that contain formatting and 
non-formatting characters that control the format of the field output. 

A PRINT USING mask may contain the format information for more than one field; a 
FORMAT$ mask contains the format informattion for only one, numeric field. 

Non-formatting characters include any, and all, characters not specified here as 
formatting characters and act as literal information and field separators. These 
non-formatting characters will be included in the output field. Formating 
characters that operate in pairs (\\ $$ ** DB CR '^^ ^^'^ ^-^^^ ^^ ^^^ will act as 
non-formatting characters if they appear separately ($ * D B C R '^) . Additionally, 
the formatting characters comma, period, minus, DB, CR, +, and > act as 
non-formatting characters if they appear separate from a numeric field 
specification. 

For example: 

0010 PRINT USING "Example 1: ##",1 

0020 PRINT USING "This is a DB record 99", 1 

-RUN 

Example 1: 1 

This is a DB record 01 

6.1 Numeric Field Masks 

Numeric field masks may be used for both the PRINT USING statement and the FORMAT$ 

function. A numeric field mask requires a numeric value as input. When an attempt 

is made to use a numeric field mask with a string field the error "Invalid using" 
will occur. 

The output of a numeric field specification mask will always be the same length as 
the length of the specification mask (unless there is insufficient space — see 
"Field Specification too Small"). If necessary, the number to be output is rounded 
by truncating digits to the right of the decimal point not specified in the mask or 
rounding the last digit specified to the right of the decimal point if the next 
digit was five or greater. When a number must be rounded to make it fit in the 
specified mask rounding will be performed on the absolute value of the number. For 
examp le : 

0010 PRINT USING "////", 1.4,1.5, 1.6 0010 PRINT USING "##",-1.4,-1.5,-1.6 
RUN RUN 

1 -1 

2 -2 
2 -2 

6*1.I Specifying Number of Digits 

All of the numeric, formatting characters are used to specify the total length of 
the output field; however, only the #, 9, comma, **, and $$ are used to specify the 
number of digits to be included. Conventionally, the # and/or 9 characters are 
used to specify the number of digits. 
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The 9 character reserves space for one digit and, if it appears before the decimal 
point specification, indicates that leading zeros are not to be suppressed. The 9 
character cannot be used to format negative values. 



The # character reserves 
to be suppressed. 



space for one digit and indicates that leading zeros are 



The # and 9 characters may be mixed; however, if one or more 9 characters appear 
before the decimal point specification, leading zeros will not be suppressed. 

When no sign specification is used and a negative value is output, a leading, 
floating, minus sign will be output, using one of the digit positions (as stated 
earlier, the output field will always be the same length as the mask field). 



For example: 






0010 PRINT USING 


//• 


» ■'■ 


0020 PRINT USING 


" ##• 


> •'• 


0030 PRINT USING 


"#////////• 


» ^ 


0040 PRINT USING 


"9##////' 


y ^ 


0050 PRINT USING 


"#//#////• 


-1 



0060 PRINT F0RMAT$(23," ##//#") 
-RUN 



0000 
23 



0010 PRINT USING 
0020 PRINT USING 
0030 PRINT USING 
0040 PRINT USING 
0050 PRINT USING 



9",1 

99", 1 

99999", 1 

#9#9#",1 
99999-", -1 



0060 PRINT F0RMAT$(23,"9#//##") 

1 
01 
00001 
00001 
00001- 
00023 



6.1.2 Decimal Point Specification 

You can specify the number of digits to the left and right of the decimal point by 
using a period embedded in the number field specification. The number of digits to 
the right of the decimal point specification will always be printed, even if zeros 
are required to do so. 

If one or more digits are specified to the left of the decimal point there will 
always be at least one digit output, even if a zero is required to do so, unless 
there is only one place specified, the number is negative and less than one, and 
there is no sign specification used, in which case the negative sign will be output 
immediately before the decimal point. 

Specifying fewer places to the right of the decimal point than the number actually 
contains will cause rounding to occur to allow the number to fit. Specifying fewer 
places to the left will cause an error (see Specification too Small). 



Only one decimal point may be specified in a numeric field mask, 
second decimal point will indicate the end of the mask field and 
another numeric field. 



Specifying a 
the start of 
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For example: 

0010 PRINT USING " .##",0 
0020 PRINT USING " #.##",1 
0030 PRINT USING " ##.##", 1.2345 
0040 PRINT USING "##////#.##//#", 1.24 
-RUN 

.00 

1.00 

1.23 

1.2400 

6* 1.3 Comma Specification 



0010 PRINT USING " .99",0 
0020 PRINT USING " 9.99", 1 
0030 PRINT USING "99. 99-", -.2 
0040 PRINT USING " 9. 999", -.234569 
-RUN 
.00 
1.00 
00.20- 
%-. 234569 



Commas may be inserted in the output field by using the coirana character an3^here in 
the field, to the left of the decimal point specification, if used. 

When the comma character is used the output field will be formatted with a comma 
appearing every third digit from the decimal point (or least significant digit if 
the decimal point specification is not used), working from right to left. 

The comma character is also a digit specifier. 

More than one comma may be specified for easier reading of the format mask: 
#,######### has the same effect as ##//,//#//,//## although the second form is more 
graphic in its meaning. 

For example: 

0010 PRINT USING "#,####",1 

0020 PRINT USING "#,###////////#////#", IE'^9 

0030 PRINT USING "#//,##////#//.##", 1234.56 

-RUN 

1 
1,000,000,000 
1,234.56 

6.1.4 Dollar Field Specification 



0010 PRINT USING "##,#////", 12345 
0020 PRINT USING "#,###,//##,//#//", 1E^9 
0030 PRINT USING "#,###,###.##,"1234.56 
-RUN 
12,345 

1,000,000,000 
1,234.56 



A number may be formatted with a dollar sign immediately before the most 
significant digit by using the floating dollar sign specification of two dollar 
sign characters together. (To format a number with a dollar sign before the field 
use a single dollar sign character and it will be treated as a non-formatting 
character.) 

The double dollar sign characters must be at the start of the field (the asterisk 
fill specification, if used, must be before the floating dollar sign 
specification) . 

The double dollar sign characters indicate that a floating dollar sign is to be 
generated and one position is to be reserved for a digit. 

If the number to be formatted is negative you must use the sign specification, 
otherwise a using error will occur. 

The numeric field specification character 9 may not be used in a field with 
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floating dollar sign specification. When it is it will be interpreted as the end 
of the field and the start of the next numeric field. 

Extra dollar sign characters may be used instead of the # character. For instance, 
$$$$$$$$ is the same as $$////#//#//. 



For example: 

0010 PRINT USING "$$//////.#//", 12 
0020 PRINT USING "$$###.#//", 1234 
0030 PRINT USING "$$#////.#//-", -1234 
-RUN 

$12.00 
$1234.00 
$1234.00- 

6.1.5 Asterisk Fill Specification 



0010 PRINT USING " $$",1 

0020 PRINT USING "$$,#//#////.##", 12345 

0030 PRINT USING "$$//#//#////.#//-", -12345 

-RUN 

$1 

$12,345.00 

$12,345.00- 



A number may be formatted with leading asterisk instead of leading zeros by using 
the asterisk fill specification of two asterisk characters. 

The asterisk fill specification, if used, must appear at the very start of a 
numeric field specification. 

The double asterisk characters indicate that any leading zeros are to be replaced 
with asterisks and that two positions are to be reserved for digits. 

If the number to be formatted is negative you must use the sign specification, 
otherwise a using error will occur. 

The numeric field specification character 9 may not be used in a field with 
asterisk fill specification. When it is it will be interpreted as the end of the 
field and the start of the next numeric field. 

Extra asterisk characters may be used instead of the # character. For instance, 
******** is the same as **#//#//#//. 



For example: 

0010 PRINT USING "**////.//#", 123 

0020 PRINT USING "**//#. ##-",-123 

0030 PRINT USING "**$$$$$-", -2 

-RUN 

*123.00 

*123.00- 

*****$2— 



0010 PRINT USING "****.##", 123 

0020 PRINT USING "**$$.##", 1 

0030 PRINT USING "****",. 5678 

-RUN 

*123.00 

**$1.00 

***1 



6.1.6 Sign Specification 

BASIC provides several methods of specifying how to print signed values. As stated 
above, when the mask field does not specify how to format a negative value, a 
leading, minus sign is generated. This is unacceptable in many cases and BASIC 
will not allow it if the format specification includes leading zeros (9), floating 
dollar sign ($$), or asterisk fill (**). In these situations you must use one of 
the sign specification characters. 
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All of the sign specification characters, when used, must appear at the end of 
format field (if they appear at the beginning or middle of a format field they will 
be treated as non-formatting characters or field separators, respectively). 

Trailing Sign Specification 

A plus sign character (+) at the end of a format specification indicates that 
the sign of the field (+ or --) is to be output at the end of the number. 

Trailing Minus Sign Specification 

A minus sign character (-) at the end of a format specification indicates that 
the sign of the field (-) is to be output at the end of the number if the 
value of the number is less than zero. 

Trailing Debit Sign Specification 

Debit specification characters (DB) appearing at the end of a format 
specification indicate that a literal DB is to be output at the end of the 
number if the value of the number is less than zero. 

Trailing Credit Sign Specification 

Credit specification characters (CR) appearing at the end of a format 
specification indicate that a literal CR is to be output at the end of the 
number if the value of the number is less than zero. 

Angle Bracket Specification 

An angle bracket character (>) at the end of a format specification indicates 
the the number is to be surrounded with angle brackets if the value of the 
number is less than zero. 

Note that this specification is somewhat different from the other sign 
specifications in that not only is a character added at the end of the number 
output but also at the beginning of the number. 

This sign specification may not be used with the numeric field specification 
characters 9, $$, or **. 

Negative value specifications may be used with any of the other numeric field 
formatting characters with the exception of exponential field specification. 
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Examples : 

0010 PRINT USING 
0020 PRINT USING 
0030 PRINT USING 
0040 PRINT USING 
0050 PRINT USING 
0060 PRINT USING 
-RUN 

123+ 

123 

123 

123 

123 

12.00 



"###//+", 123 
////////-", 123 
#//////DB",123 
#//#//CR",123 
#//////>", 123 
#//#//////. ////>", 12 



0010 PRINT USING "////////+", -123 
0020 PRINT USING "////////-", -123 
0030 PRINT USING "//////#DB",-123 
0040 PRINT USING "#//////CR",-123 
0050 PRINT USING "#//////>", -123 
0060 PRINT USING "//#//#////.////>", -12 
-RUN 

123- 

123- 

123DB 

123CR 
<123> 

<12.00> 



6. 1.7 Exponential Field Specification 

BASIC normally prints a number in E format only when it is larger than 13 digits 
long, for example: 123456789012345 would be printed as 1.234567890123E+014. 
However, with PRINT USING or the FORMAT$ you can force a number to be output in E 
format. This is done with the exponential field specification: ^ . 

When a number is to be formatted in E format you cannot specify any other 
formatting characters other than the number of digits (#) or the decimal point 
position (.). 



The exponential field specification, 
field specification: #//.##////^'"^'"". 



when used, must be at the end of the numeric 



The exponential field specification may be used with fewer than five up-arrow 
characters when it is known that the exponent will fit in the smaller 
specification. For example: 



^ ^^ allows for exponents from -126 to +126 

■^ allows for exponents from -99 to +99 

"^ allows for exponents from -9 to +9 

"^^ allows for exponents from to 9 

For example: 

0010 PRINT USING "#.//# ",124 

0020 PRINT USING "iHHHHHHHr^^'^^" ,123^^5 

0030 PRINT USING "###////. ///////r^'^'^", 12345678 

0040 PRINT USING 'V/.//////////""-^", 1234567 

-RUN 

1.24E+002 

12344500E-002 

12345. 6780E+03 

1.23456E6 

6.1.8 Field Specification too Snail 

When a number field specification does not specify sufficient digit to allow the 
number to be output a percent symbol character (%) will be output followed by the 
number, unformatted. 
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This situation can happen for several reasons: 

* Field isn't large enough: mask= ##// number = 1234 

* Field isn't large enough to include the commas specified: mask= #,#//# 
number= 12345 

* Field isn't large enough to include floating dollar sign: mask= $$#//# 
number= 12345 

* Field isn't large enough to include leading minus sign: mask= ### number= 
-123 

In the following examples a double field mask is used to print two nunibers, the 
first number won't fit in the first field but the second, identical number will fit 
in the second field. 



0010 PRINT USING "### //#//#.#//", 1234, 1234 
0020 PRINT USING "#,### ###//#", 12345, 12345 
0030 PRINT USING "$$### ###////", 12345, 12345 
0040 PRINT USING "**//## #//#//#", 12345, 12345 
0050 PRINT USING "##// ###-",-123,-123 

0060 PRINT USING "#.##-" ##.## ^^",-1,-1 

0070 PRINT USING "#.##^^ #.##'"^^'"", lE+12, lE+12 

-RUN 

% 1234 1234.00 

% 12345 12345 

% 12345 12345 

% 12345 12345 

%-123 123- 

%-l -l.OOE+000 

% 1000000000000 l.OOE+12 

6.2 String Field Masks 

String field masks may only be used for the PRINT USING statement, not in the 
FORMAT $ function. A string field mask requires a string value as input. When an 
attempt is made to use a string field mask with a numeric value the error "[26] 
Invalid using" will occur. 

The output of a string field specification mask will always be the same length as 
the length of the specification mask with one exception: extended fields. When a 
string value is longer than the string field mask BASIC will print as much of the 
string as will fit and truncate the remaining. 

6.2.1 Single Character 

You can specify that only the first character of the string value is to be printed 
by using the single quote character as a single character string mask field. 
Alternately the exclamation mark (I) may be used. 

0010 PRINT USING "i", "ABCDEFGH" 0020 PRINT USING "'","XYAX" 
RUN RUN 

A X 
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6.2.2 Left Justified Field 



If you specify a left justified string field, BASIC prints the string starting at 
the left most position. If there are any unused places, BASIC prints spaces after 
the string. If there are more characters in the string value than in the string 
mask, BASIC truncates the string and does not print the excess characters. 

To specify a left justified string field use the single quote lead in character (') 
followed by one or more L characters. The number of L characters (upper or lower 
case) plus the lead in quote specify the length of the left justified field. 

Alternately you may use the back slant character to mark the beginning and end of 
the string mask. In this form spaces must be used between the two back slant 
characters. The number of spaces plus the two back slant characters specify the 
length of the left justified field to be printed. 

With either method the minimum string length is two. 

For example: 



0010 PRINT USING '"L", "ABCDEF" 

0020 PRINT USING '"LLL", "1234567" 

0030 PRINT USING "\ V',"ABC" 

RUN 

AB 

1234 

ABC 



0010 PRINT USING "'LLLLL", "1234567890" 

0020 PRINT USING "'LLLLL", "AB" 

0030 PRINT USING "\ \","ABCD" 

RUN 

123456 

AB 

ABCD 



6.2.3 Right Justified Field 

If you specify a right justified string field, BASIC prints the string so that the 
last character of the string is in the right most place of the field. If there are 
any unused places before the string, BASIC prints spaces to fill the string. If 
there are more character's in the string value than in the string mask, BASIC 
truncates the string and does not print the excess characters. 

To specify a right justified string field use the single quote lead in characters 
(') followed by one or more R characters. The number of R characters (upper or 
lower case) plus the lead in quote specify the length of the right justified field. 



RRRRRR" '"ABCD" 



For example: 

0010 PRINT USING 

0020 PRINT USING 

0030 PRINT USING "'RRRRRR", "ABCDEF" 

0040 PRINT USING "'RRRRRR", "ABCDEFGHIJKLMNOP" 

RUN 

ABCD 

AB 

ABCDEF 

ABCDEFG 



6.2.4 Center Justified Field 

If you specify a centered field, BASIC prints the string so that the center of the 
string is in the center of the field. If the string cannot be exactly centered. 
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such as a two character string in a five character field, BASIC prints the string 
one character off center to the left. If the length of the string is longer than 
the mask field the string will be truncated. 

To specify a center justified string field use the single quote lead in character 
(') followed by one or more C characters. The number of C characters (upper or 
lower case) plus the lead in quote specify the length of the center justified 
field. 

For example: 

0010 PRINT USING '"CCCCCCCCCC","ABC" 

0020 PRINT USING '"CCCCCCCCCC","ABCDEF" 

0030 PRINT USING "'CCCCCCCCCC","A" 

0040 PRINT USING '"CCCCCCCCCC", "ABODE" 

0050 PRINT USING "'CCCCCCCCCC", "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 

RUN 

ABC 

ABCDEF 

A 

ABCDE 

ABCDEFGHIJK 

6.2.5 Extended Field 

The extended field is the only field that automatically prints the entire string. 
When you specify an extended field, BASIC left justifies the string as it does for 
a left justified field, but, if the string has more characters than there are 
places in the field, BASIC extends the field and prints the entire string. This 
extension may cause other items to be misaligned. 

To specify an extended field use the single quote lead in character (') followed by 
one or more E characters- The number of E characters (upper or lower case) plus 
the lead in quote specify the minimum length of the extended field. The resulting 
output field will always be at least the length of the mask field. 

For example: 

0010 PRINT USING "'E-", "ABCDEF" 

0020 PRINT USING "'EEEE-", "ABCDEF" 

0030 PRINT USING "'EEEEEEEEEEEEEEEEEEE-","ABCDEFGHIJKLMNOP" 

RUN 

ABCDEF- 

ABCDEF- 

ABCDEFGHIJKLMNOP 

6.3 Multiple Fields In One Mask 

The PRINT USING statement allows multiple fields to be specified in one mask. When 
this is done the values of the expressions in the PRINT USING statement are matched 
in a one to one relation with the fields in the mask. (The FORMAT$ function only 
allows one numeric field to be specified in the mask. A second field, if 
specified, will be used to mark the end of the mask.) 
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For example: 

0010 PRINT USING "////// //////// //////// //#%'M,2,3,4 

0020 PRINT USING "999 9999 9999 99%", 100, 123,5,2 

0030 PRINT USING "'RRRRRRRRRR ////// 'E", "ITEM", 23, "THIS IS THE DESCRIPTION" 

RUN 

1 2 3 4% 
100 0123 0005 02% 

ITEM 23 THIS' IS THE DESCRIPTION 

As mentioned earlier, any non-formatting characters in the mask field are treated 
as literal characters to be included in the output: 

0010 PRINT USING "ITEM 9999 Amount each: $$$$$$.////", 23, 15.40 

RUN 

ITEM 0023 Amount each: $15.40 

6.4 Re-using Mask Fields 

The PRINT USING statement will re-use the mask field if there are more values 
specified as input than there are fields in the mask. BASIC will output a carriage 
return, line feed each time that the mask is re-used. 

For example: 

0010 PRINT USING "$$$$$$,$$$.#//", 1,23.4,34,234,5467.2, 1235.924 
RUN 

$1.00 

$23.40 

$34.00 

$234.00 

$5,467.20 

$1,235.92 

6*5 Using Errors 

A using error occurs (and a message is displayed) if: 

* The format string is not a legal string expression. 

* There are no valid fields in the format string. 

* A string is printed in a numeric field. 

* A number is printed in a string field. 
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FRIHT USIBG and F0S1IAT$ Fonat Characters - Himerlc Fields 



1 Character | Function I 

1 9 1 Reserves place for one digit. Also specifies no zero | 
1 1 suppression. | 


1 // 1 Reserves place for one digit, with leading zeros | 
1 1 suppressed. I 


1 $$ 1 Reserves place for one digit and floating dollar sign. J 


1 ** 1 Causes leading asterisks to be printed instead of | 
1 1 spaces. Also reserves place for two digits. | 


1 , 1 Causes a comma to be printed between every third digit | 
I 1 starting from the decimal point and proceeding from | 
1 1 right to left. Also reserves place for one digit. | 


1 . 1 Specifies location of decimal point. | 


1 - 1 Causes a trailing minus sign to be printed when number | 
I j is negative. I 


1 1 depending upon the sign of the number | 


1 DB 1 Causes a trailing DB to be printed when number is | 


1 CR 1 Causes a trailing CR to be printed when number is | 
1 1 negative. I 


1 > 1 Causes a leading, floating < and a trailing > to be I 


1 1 Causes the number to be printed in E format. Only | 
1 1 allows for single digit, unsigned exponent. | 


1 "^ 1 Causes the number to be printed in E format. Only | 
1 1 allows for single digit, signed exponent. | 


1 1 allows for double digit, signed exponent. | 


1 ^ j c^yggg ^Yie number to be printed in E format. | 
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PRIHT USIHG roTuat Characters > String Fields 



1 Character | Function 

1 i 1 Single character field printed. 


1 \ 1 Marks beginning or ending of a left justified field 
1 1 and reserves one place for a character. 


1 ' 1 Single character field printed or treated as the 

1 1 lead in character for following four format 

1 1 characters and reserves one place for a character. 


1 L 1 Causes string to be left justified and reserves place 
1 1 for one character. Also lower case 1. 


1 1 for one character. Also lower case r. 


1 C 1 Causes string to be center justified and reserves 
1 1 place for one character. Also lower case c 


1 1 one character, and causes entire string to be 
1 1 printed. Also lower case e. 
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BASIC supports file input and output to the on-line disk drives, console, printers, 
and other devices. Various file access methods are supported: SEQUENTIAL (one 
record after another from beginning of file); DIRECT (random by relative record 
number); and INDEXED (random by key). 

Files have both an external name by which it is known within the system, and an 
internal file designator used within the BASIC program. For example, a file might 
exist on a disk, with the name INVEN .MASTER. This is the external name (i.e., 
INVEN. MASTER: A). In the BASIC program it might be opened on channel 1. This is 
done through the OPEN statement. All further references to the file in the program 
will be to #1 not to the file name of ' INVEN .MASTER: A' . 

There are sixteen (16) channel numbers available to the user program, and all 
sixteen may be in use at one time. This means that there can be sixteen data files 
available for use at any one time in the BASIC program. Each open I/O channel 
requires buffer space and a small amount of space used for pointers, etc. The 
amount of buffer space needed varies, depending upon the device. 

A seventeenth channel is always open to the CONSOLE. This channel is only accessed 
with INP and EOF functions, and the INPUT, LINPUT, and PRINT statements. 

The sequence of statements in a BASIC program that uses a file is: 

OPEN 

INPUT, LINPUT, PRINT, READ, WRITE, etc 

CLOSE 

OPEN This statement must be used before other file access statements to specify 
the file to be used, the internal channel to use for the file, the access 
mode and method, and various options that are to be used with the file. 

INPUT, PRINT These statements perform the input and output to the file. They are 
performed as often as necessary to accomplish the function of the program. 
The specific statement to be used depends upon the access mode used in the 
OPEN statement and the file format. 

CLOSE This statement is used last to designate that the operations to that file 
are complete. 

7*1 Access Mode 

There are three types of access modes that may be specified with the BASIC OPEN 
statement. 

INPUT This mode indicates that the file is to be used for input operations only. 
When this mode is in effect BASIC will not allow output type operations to 
be performed on the file's I/O channel. 

OUTPUT This mode indicates that the file is to be used for output operations 
only. BASIC will not allow input type operations to be performed on this 
file's I/O channel. This mode is normally used when a file is first being 
built or created or on output only devices like a printer. 
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UPDATE This mode allows both input and output operations to be performed on the 
file. 

7»2 Access Methods 

The OPEN statement requires that you specify the access method. Do not confuse 
this with the file's format even though the same adjectives are used for both. The 
access method specifies the type of access to be performed on the file which may be 
quite different from the format of the file. 

SEQUENTIAL Indicates that the records in the file are to be read or written 
sequentially, one after the other, starting at the beginning of the file. 
With this access method, to access any specific record, all records before 
that record must be accessed. 

DIRECT Indicates that the records in the file are to be read or written randomly, 
by record number. This access method allows any record in the file to be 
accessed without accessing any other record in the file (i.e., directly). 

INDEXED Indicates that the records in the file are to be read or written randomly, 
by record key. This access, similar to DIRECT, allows any record in the 
file to be accessed without accessing any other record in the file; 
however, the record is accessed using a generic key, or name, of the 
record. 

7.3 File Formats 

A file's format is determined when the file is first created. The OASIS operating 
system supports three types of data file formats: 

SEQUENTIAL This file format is similar to a tape file, that is, a record can only 
be added at the end of the file and a record can only be accessed after 
all records preceding it have been accessed sequentially. 

Sequential files exist naturally on CONSOLE terminals, PRINTERS, TAPEs, 
and COMMs. 

DIRECT A direct file is a file of fixed length, fixed number of records. Records 
are accessed in a completely random sequence by specifying a relative 
record number. 

This file format is quite useful for frequently accessed master files that 
have sequentially numbered keys such as a customer file or a vendor file. 
Access to this type of file is fast, as the system can compute the address 
of the record on the disk without searching a separate index. 

Direct files are only supported on disk devices, and must be created with 
the CSI command CREATE. 

Direct files may be accessed with SEQUENTIAL or DIRECT access methods. 

INDEXED The indexed file format is essentially an indexed file type in addition to 
a sequential access mode. Records are maintained and accessed with a 
string key of variable length. Records can also be accessed in a 
sequential method by use of the READNEXT statement. 
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Because of the necessity of keeping the index in sequence, updating this 
type of file is slower than using the direct file format. 

Indexed files are only supported on disk devices, and must be created by 
the CSX command CREATE. 

Indexed files may only be accessed with INDEXED access methods. 

7*4 Record Allocation Requirements 

Since indexed and direct files must be preallocated by the user before the BASIC 
program can access them it is necessary for the user to calculate the maximum 
record size required for each file. To do this the user must determine the field 
types to be written to the file. 

For each string field in a record the user must allocate space for the length of 
the longest field plus 2. 

For each floating point field in a record the user must allocate space for 9 
positions. 

For each integer field in a record the user must allocate space for 3 positions. 

Thus the record size for the following direct file must be 32: 

WRITE #1,N:"REC0RD",1,2,A,B 

7.5 Multi-User File Protections 

A BASIC program run on a multi-user OASIS system will operate the same as on a 
single user OASIS system, except that file contention may occur. This means that 
two users may attempt to access the same file or the same record in a file at the 
same time. This situation may, or may not be allowed, depending on the file 
protections used by the two programs. 

A program that does extensive input and output to a file should lock the entire 
file from other user's use. This is done by specifying the LOCK option in the OPEN 
statement . 

If a file is not locked in its entirety other users may access the file (unless the 
other user attempts to lock the entire file which would not be allowed). 

When a file is opened for INPUT or OUTPUT no record locking will be performed and 
it is possible that a record read by your program might be updated by another 
user's program without your program's knowledge. This could result in errors in 
the file. 

When programming in a multi-user system the programmer must always ask the 
question: What happens if another user wants this record? and program accordingly. 
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CCSOfANDS 

BASIC commands are used to enter, change, and debug programs. They only may be 
used in the command mode. Command mode is when BASIC prompt character is displayed 
(-). 

BASIC command functions may be divided into four categories: 

A. General 

HELP - Display list of commands available. 
LENGTH - Display current memory utilization of program. 
NAME - Display or change name of program in memory. 
NEW - Initialize BASIC work area, new program. 

B. Editing 

AUTO - Automatic line number prompting for new line entry. 

BOTTOM - Position to the last line in the program. 

CHANGE - Change string in one or more lines of code. 

DELETE - Remove line(s) of code from program. 

DOWN - List next line. 

INDENT - Perform standard program indentation. 

LIST - List one or more lines of program. 

LOCATE - Locate line containing string. 

LPLIST - List one or more lines of program on printer. 

LPXREF - List cross reference table on printer. 

MODIFY - Character by character change of one or more lines. 

RENUMBER - Renumber all or part of program. 

TOP - Position to the first line in the program. 

UP - List prior line. 

XREF - List cross reference table on terminal. 
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C. Disk programs 

LOAD - Retrieve program from disk. 

RUN - Execute program from disk or already in memory. 

SAVE - Save current program on disk. 

D. Debugging 

BREAK - Specify condition to break on. 

CONTINUE - Resume execution. 

STEP - Execute next statement and stops. 

TRACE - Display line numbers executed and optionally variables changed. 

UNTRACE - Discontinue trace mode. 

UNBREAK - Remove one or all breakpoints set. 

VARS - Display contents of all variables defined. 
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8.1 ADTO CoiiBumd 

1 ADTO 

2 ADTO <staTt> 

3 ADTO <8tart> <increMent> 

Where: 

<start> ::= <line number> 

<increment> ::= <line increment value> 



Purpose: 

The AUTO command allows you to enter new lines to the program with automatic line 
numbering. 

ConBueiit: 

The AUTO command cannot be used if a program in memory is read protected (see LOAD 
command) . 

The AUTO command is intended to be used for creating new programs or adding new 
sections to an existing program in memory. 

The <increment> value, when specified, sets the current increment value for this 
AUTO and subsequent executions of the AUTO command. 

When the AUTO command is executed BASIC will display the current line number plus 
the current increment on the console (or the <start line number>, when specified) 
followed by a space. You may then enter a program line. After a program line has 
been entered and terminated by a carriage return, the line number is incremented by 
the current increment and the process is repeated. 

To terminate the line input process enter a carriage return when BASIC prompts you 
with the line number. No blank line will be added to the program. Lines entered 
with this command cannot replace any line in the program with the same line number 
nor can it be used to add multiple lines that merge around existing lines. In 
order to add lines that merge around exising lines you must enter them one at a 
time. 
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Examples: 

-LIST 

10 INPUT "RADIUS OF CIRCLE", RR 

20 PRINT "DIAMETER =";2*R 

30 PRINT "AREA =";PI*R'"2 

40 PRINT "CIRCUMFERENCE =";2*PI*R 

50 END 
-DELETE 10 20 
TOF: 
-AUTO 

10 PRINT "HELLO" 

20 LET R=55 
AUTO cannot replace or merge lines 



-LIST 

10 PRINT "HELLO" 

20 LET R=55 

30 PRINT "AREA =";PI*R''2 

40 PRINT "CIRCUMFERENCE =";2*PI*R 

50 END 
-DELETE 50 

40 PRINT "CIRCUMFERENCE =";2*PI*R 
-AUTO 50,3 

50 PRINT "AGAIN"; \INPUT Y$ 

53 IF Y$="Y" THEN 20 

56 END 

59 
-LIST 

10 PRINT "HELLO" 

20 LET R=55 

30 PRINT "AREA =";PI*R"2 

40 PRINT "CIRCUMFERENCE =";2*PI*R 

50 PRINT "AGAIN"; \ INPUT Y$ 

53 IF Y$="Y" THEN 20 

56 END 
-AUTO 

59 REM Exit routine 

62 QUIT 4 

65 



Note that the current line and the 
increment value are unchanged because no 
start line nor increment value was 
specified. 
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8.2 Bottom CoinBand 

I BOTTOM I 



Purpose: 

The bottom command positions to the last line in the program and displays that line 
of code. 

Comment: 

The bottom command cannot be used if the program in memory is read protected (see 
LOAD command ) . 



Examples: 

Stop at line 0020 
-BO 
999 END 
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8.3 BREAK Command 



1 BREAK 

2 BREAK [AT] <lliie ref erencO 

3 BREAK [AT] <llne re£erence> [AFTER] <count> 

4 BREAK [ON] <varlable> 

5 BREAK [ON] <varlable> CHANGE 

6 BREAK [ON] <varlable> AFTER <coimt> 

7 BREAK [ON] <varlable> CHANGE AFTER <count> 

8 BREAK [ON] <varlable> <relatlon> <value> 

Where: 

<line reference> ::= <line number> 

<line label> 
<relation> ::= <relational operator> 
<value> ::= <numeric literal> 

<quoted string literal> 

<numeric variable> 

<string variable> 

See also: STEP, TRACE, UNBREAK, UNTRACE, and VARS commands 



Purpose: 

The BREAK command provides the capability of dynamic debugging of the BASIC 
program. 

Comment: 

<count> is a numeric value referring to the number of times that the specified 
break condition is to occur before a break is actually performed. 

<variable> is a simple numeric variable, not a subscripted variable. An array name 
is acceptable. 

Format 1 of the BREAK command will display the current break table. 

Format 2 will cause a break to occur at the next execution of the statement on the 
line referenced, before the statement is executed. 

Format 3 will cause a break to occur at the <count> execution of the statement on 
the line referenced, before the statement is executed. 

Format 4 will cause a break to occur the next time that the <variable> is used, 
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after the statement using the variable is executed. 

Format 5 will cause a break to occur the next time that the <variable> is changed 
by a statement, after the statement changing the variable is executed. 

Format 6 will cause a break to occur after the <variable> is referenced <count> 
times, after the statement referencing the variable the <count> time is executed. 

Format 7 will cause a break to occur after the <variable> is changed <count> times, 
after the statement changing the variable the <count> time is executed. 

Format 8 will cause a break to occur when the relationship is true, after the 
statement causing the relationship to become true is executed. 

The BREAK command may be abbreviated to the letter B. 

When a break occurs, execution of the program stops and the message "Break at ...." 
or "Break on ...." is displayed. Control returns to the command mode. When a 
break occurs on a variable reference or change the statement causing the break will 
be completly executed. Executing a CONTINUE command will cause the statement 
following to be executed. 

Only one break will be set for a specific variable or line at one time. When 
multiple break points are attempted to be set for a variable or a line only the 
last one specified will be in effect. 

Note: Break points are only cleared by the UNBREAK, NEW, and LOAD commands. During 
execution, if a different program is brought into memory the old break points will 
still exist. The RUNUMBER command does not change the line numbers specified in 
any break points. 
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Example: 



-LIST 




10 FOR I%=1 TO 4 




20 PRINT 1% 




30 GOSUB SUM 




40 NEXT 




50 GOTO 9999 




60 SUM: TOTAL% = TOTAL%+I% 


RETURN 


9999 END 





-BREAK AT SUM 

-BREAK ON 1% CHANGE AFTER 4 

-BREAK 

Break at SUM 

Break on 1% changed after 4 

-RUN 

Break at line 60 

-VARS TOTAL % 

TOTAL% = 

-VARS 1% 

1% = 1 

-UNBREAK AT SUM 

-CONTINUE 

Break on 1% at line 40 

-VARS I%,TOTAL% 

1% = 4 

TOTAL% = 6 



BREAK - 58 - BASIC 



CHAFTER 8: GOMfANDS 
8.4 CHANGE ComBand 

1 CHANGE 

2 CHANGE <char><from strlngXcharXto strliig><char> 

3 CHANGE <char><£rom strlngXcharXto stringXcharXrangO 

Where: 

<char> ::= <delimiting character > 

<from strlng> ::= <string> 

<to string> ::= <string> 

<range> ::= <line number>[ <line nuniber>] 

See also: MODIFY command 



Purpose: 

The CHANGE command allows you to make a change to an existing line, or lines, of 
code without re-entering the entire line. 

Conmieiit: 

The CHANGE command cannot be used if a program in memory is read protected (see 
LOAD command ) . 

Format 1 of the CHANGE command will execute the last executed CHANGE command on the 
current line. 

Format 2 of the CHANGE command will change all occurrences of the <from string> on 
the current line to the <to string>. 

Format 3 of the CHANGE command will change all occurrences of the <from string> on 
each line of the lines within <range> to the <to string>. 

The <from string> and <to string> must be delimited by the same character, similar 
to the CHANGE command in the system editor. The delimiters must be quotation marks 
if you wish to change from or to a mixed or lower case string. 

Each time that the CHANGE command actually makes a change on a line the line will 
be displayed with the change made. 

Note: To change only one occurrence on a line use the MODIFY command. 
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Examples: Explanation; 

-LIST 

10 INPUT "Item 1",R 

20 PRINT R 

30 INPUT "Item 2",R1 

40 PRINT Rl 
-CHANGE /INPUT/LINPUT/ 10 40 

10 LINPUT "Item 1",R 

30 LINPUT "Item 2",R1 
-CHANGE "Item"VALUE" 10 

10 LINPUT "VALUE 1",R 
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8.5 GONTIHUE Conund 

I 1 GONnNUE I 



Purpose: 

The CONTINUE conunand allows you to resume execution of a program that was 
interrupted. 

Conaeiifc: 

The CONTINUE command, when executed, will continue the execution of a program whose 
execution was interrupted by a STOP statement, an error, or entry of the Program 
Cancel-Key. 

When a program has a normal exit, i.e., execution of the END statement, the 
CONTINUE command has no effect. 

The CONTINUE command is a valuable debugging aid. If a "bug" is suspected in a 
portion of a program, STOP statements may be inserted at strategic positions of the 
program. When the STOP is executed, you may use the commands to examine variables 
and/or change statements in the program and continue execution. If an error 
occurs, you may examine the suspected statement and change it as required and 
continue execution. 

When an error occurs, a CONTINUE command will re-execute the line that contained 
the statement that was interrupted. If the error occurs in a multi-statement line, 
the CONTINUE command re-executes the entire line. 

If a STOP occurs, a CONTINUE command will execute the statement following the STOP 
statement, even if that statement is on the same line. 

Note: Executing an immediate instruction after a stop or error has occurred will 
prevent you from using the CONTINUE command. An immediate instruction, when 
executed, causes the line pointer to be lost. 
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8.6 DELETE Command 

1 DELETE 

2 DELETE <raiige> 

Where: 



<range> ::= <line number> <line number> 
<line number >,<line number> 



Purpose: 

The DELETE command allows the user to remove a line or group of lines from the 
program. 

Comment: : 

Format 1 of the DELETE command removes the current line from the program in memory. 

Format 2 of the DELETE command removes all lines from the program in memory whose 
line numbers are included in the range specified. 

The DELETE command cannot be used if the program in memory is read protected (see 
LOAD command ) . 

The restrictions for first and last line numbers as described for LIST apply to the 
DELETE command; however, the DELETE command must have at least one operand. 

Using the first example in Appendix G as the program in memory: 



Examples: 
-DELETE 40 
-DEL 15,45 
-LIST 

10 INPUT "RADIUS OF CIRCLE", R 
50 END 



Explanation: 

Line 40 is removed from the 

program. 

Lines 20 and 30 are removed 

from the program. 



Incorrect Examples: 

-DELETE 50,20 

Invalid command syntax 



Explanation: 

Last line number must be greater 
than or equal to first line number. 



DELETE 
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8«7 Down ComBand 

I <llne £eed> I 



Purpose: 

The down command advances and displays the next line of source code. 

Conaent: 

The down command cannot be used if the program in memory is read protected (see 
LOAD command ) . 

When the down command is entered the current line pointer is adjusted one line 
forward and the current line is displayed. 

Attempting to executed the down command when the current line is at the last line 
of the program the message EOF: is displayed indicating that you are at the end of 
file. 
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8.8 HELP Conmand 



1 HELP 



Purpose: 

The HELP command displays the commands available to the operator in BASIC. 

Comment: 

When the HELP command is executed the help message of command names and general 
syntax is displayed on the screen, one page at a time. 



Example: 

-HELP 

AUTO [<start>[,<incr>]] 

BOTTOM 

BREAK [AT <line> [AFTER <count>] ] 

BREAK [ON <var> [CHANGE] [AFTER <count>] ] 

BREAK [ON <var <relat> <value>] 
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8.9 INDENT Conoiand 

I 1 INDENT [<lndent value>] I 

!__ I 

Purpose: 

The INDENT command provides an easy and consistent method of performing program 
line indentation for documentation purposes. 

Comment: 

When the INDENT command is executed the program currently in memory is modified by 
stripping all current line indentation and performing new indentation according to 
a set of rules: 

* Indent level initially set to <indent value> or, when not specified, 
to the default value of 5. 

* The statements CASE, CEND, ELSE, IFEND, REM, and THEN cause the 
indent level to be adjusted -<indent value> before the statement. 

* The statements CASE, multiline DEF, ELSE, FOR, REM, THEN, WHILE, and 
line label cause the indent level to be adjusted +<indent value> 
after the statement or label. 

* The statements CEND, FNEND, IFEND, NEXT, and WEND cause the indent 
level to be adjusted -<indent value> after the statement. 

* The statements IF and SELECT cause the indent level to be adjusted 
+2*<indent value> after the statement. 

* All other statements perform no adjustment on the indent level. 



Examp le : 



-LIST 






10 


REM 


This is a comment 


20 


FOR 1=1 TO 


10 


30 


PRINT I 




40 


NEXT I 




50 


SELECT A 




60 


CASE 


1 RETURN 


70 


CASE 2 


STOP 


80 


CEND 




90 


REM This is 


a subroutine 


100 


RETURN 
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-INDENT 




-LIST 






10 


REM 


This is a comment 


20 




FOR 1=1 TO 10 


30 




PRINT I 


40 




NEXT I 


50 




SELECT A 


60 




CASE 1 RETURN 


70 




CASE 2 STOP 


80 




CEND 


90 


REM 


This is a subroutine 


100 




RETURN 
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8.10 LENGTH Command 



LENGTH 



Purpose: 

The LENGTH command allows the user to determine the current memory utilization. 

CoDment:: 

The LENGTH command displays thirteen quantities: 

* Length of source program in bytes. 

* Memory space used by symbol table, numeric and integer variables, in 
bytes . 

* Memory space used by string variable storage area in bytes. 

* Memory space used by subroutines in process. 

* Memory space used by FOR/NEXT loops in process. 

* Memory space used by SELECT /CASE /CEND structures in process. 

* Memory space used by WHILE/WEND structures in process. 

* Memory space used by debugging break points. 

* Memory space used by I/O channels used (266 bytes per channel). 

* Memory space available for program and work usage. The expression 
analyzer requires about 512 bytes of this area during execution. 

* USR program name, if loaded. 

* USR program length, if loaded. 

* USR program load address, in hexadecimal, if loaded. 

Some programs may use all of memory. This command informs the user how much memory 
is available for modifications, how much memory was made available by modifications 
(by using the length command before and after). 



Examples: 

-LENGTH 

Source: 3110 Length of source program code. 

Symbol: 178 Symbols and numeric variable values. 

String: 236 String variable values. 

GOSUB: No open subroutines 

FOR/NEXT: No open FOR/NEXT loops. 

CASE: No open SELECT /CASE /CEND structures. 

WHILE: No open WHILE/WEND structures. 

Debug: 4 One breakpoint set. 

Buffers: 532 Two I/O channels defined. 

Free: 19193 
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-OPTION USR "PRINT 1" 

-LEN 

Source: 3110 

symbol: 178 

String: 236 

GOSUB: 

FOR/NEXT: 

CASE: 

WHILE: 

Debug: 4 

Buffers: 532 

Free: 18784 



Load USR program named PRINT 1 



USR NAME: PRINT 1 
Length: 409 
Addr: F6A2 



LENGTH 



- 68 - 



BASIC 



CHAPTER 8: GGMfANDS 
8.11 LIST CoBurand 



1 LIST 

2 LIST <raiige> 

3 <llne iui]iiber> 

4 <caxxlage retiini> 

Where: 

<range> : : = <line number> 

<line number> <line number> 
<line number>,<line number > 

See also: Down, LPLIST, LPXREF, and XREF commands 



Purpose: 

The LIST command allows you to display a line, or group of lines, of the program. 

Comment: 

The LIST command cannot be used if the program in memory is read protected (see 
LOAD command ) . 

Format 1 of the LIST command will list the entire program. 

Format 2 of the LIST command with one line number will list only that line, if it 
exists. 

When a program is in memory you may list a line by entering its line number (format 
3), followed by a carriage return. This not only causes the specified line to be 
displayed but assigns that line number to an internal line display pointer. 
Entering a line feed character causes the line display pointer to be advanced to 
the next line and causes that line to be displayed. This provides an easy means of 
stepping through the display of a program. Additionally, the line display pointer 
is affected by an error during execution. When an error is detected and a message 
displayed on the console, you need only enter a carriage return to cause the error 
line to be displayed. 

A carriage return only entry (format 4) will act in one of two ways: when it is the 
first entry of the carriage return the current line will be displayed; subsequent 
entries of a carriage return only will cause the internal line display pointer to 
be incremented causing the next program line to be displayed, acting like a line 
feed entry. 

Format 2 of the LIST command with two line numbers will list all lines within the 
range of the operands, inclusive. The beginning and ending line numbers need not 
be line numbers that exist in the program. The last line number must be greater 
than or equal to the first line number. 
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When more lines are specified to be displayed than will fit on the console at one 
time and the console screen wait is enabled (see System Control Keys in the OASIS 
System Reference Manual ) > BASIC will display one page of the program, display a 
circumflex (^) at the lower left side of the page, and wait for the operator to 
respond. A response of any character will cause BASIC to display the next page of 
the program, if included in the line number range. The Program Cancel-key will 
cause the listing to be terminated immediately. 



Examples: 



-LIST 
10 
20 
30 
40 
50 



INPUT "RADIUS OF CIRCLE", R 

PRINT "DIAMETER =";2*R 

PRINT "AREA =";PI*R'^2 

PRINT "CIRCUMFERENCE =";2*PI*R 

END 



Explanation: 

Entire program is listed on terminal. 



-LIST 20 

20 PRINT "DIAMETER =";2*R 

-LIST 0,15 

10 INPUT "RADIUS OF CIRCLE", R 



Line 20 is listed. 



Lines through 15, inclusive, are listed. 



Incorrect Examples: 
-LIST 15 
-LIST 20,10 



Explanation: 

Since there is no line 15 nothing will 
be listed. 

Last line number must be greater than or 
equal to first line number. 



LIST 
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8.12 LOAD Connand 

1 LOAD <progra]n nBme.> 

Where: 

<program nanie> ::= [<file name>] [ .<f ile type>] [: <f ile disk>] 
<file type> ::= BASIC 

BASICOBJ 

See also: RUN command 

Purpose: 

The LOAD command allows the user to retrieve a program previously saved on disk. 
Comment: 

A program name must be specified but the program file type is optional. The 
program file type, if specified, may only be BASICOBJ or BASIC — no other program 
types are allowed. 

The program file type defaults to BASICOBJ and BASIC: 

When no file type is specified then a search is made for a program with 
the file type BASICOBJ. If one is found it is loaded. 

If a program with a file type of BASICOBJ is not found then a search is 
made for a program with the file type of BASIC. If one is found then it 
is loaded with syntax analysis of each and every line. 

It is much faster to load programs saved with a file type of BASICOBJ because no 
syntax analysis is performed. 

When no program disk is specified the search for the program includes all attached 
disk drives. 

If the specified program is not found then the error message "File not found" is 
displayed and no program is loaded. However, any program that was in memory before 
will have been erased. 

The LOAD command can load a read protected program file; however, most other 
commands will not operate if the program in memory is from a read protected file. 
Specifically, the following commands will inform you that they cannot be used when 
the program is read protected: AUTO, BOTTOM, CHANGE, DELETE, INDENT, LIST, LOCATE, 
LPLIST, LPXREF, MODIFY, NAME, RENUMBER, SAVE, TOP, XREF, carriage return, line 
feed, up-arrow. 
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Examples: 
-LOAD TEST 

-LOAD TEST:S 



Explanation: 

The program named TEST.BASICOBJ or 
TEST. BASIC will be located and loaded 
into memory. 

The program named TEST.BASICOBJ: S, or 
TEST. BASIC: S will be located and loaded 
into memory. 



Incorrect examples: 

-LOAD 

-LOAD TEST:T 

-LOAD PROGRAM. TEST 



Explanation: 

Program name must be specified. 
Invalid unit specified. 
Invalid file type. 



LOAD 
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8.13 LOCATE Command 

1 LOCATE 

2 LOCATE <8trliig> 

3 LOCATE <strlng> <raiige> 

Where: 

<string> ::= <deliinlted string> 
<range> ::= <line number> 

<line nuinber> <line number> 

<line number>,<line number> 



Purpose: 

The LOCATE command allows you to quickly find a line of the program that contains a 
specified sequence of characters. 

Commfcnt: 

The LOCATE command cannot be used if the program in memory is read protected (see 
LOAD command ) . 

The LOCATE command searches the program in the specified range of line numbers for 
the sequence of characters specified. 

A LOCATE command with no arguments (format 1) will cause a LOCATE to be performed 
using the string specified in the last LOCATE or CHANGE, from the current line to 
the end of the program. 

Format 2 of the LOCATE command causes the program to be searched from the line 
after the current line to the end of the program. 

Format 3 of the LOCATE command with only one line number specified causes the 
program to be searched from the line specified to the end of the program. 

Format 3 of the LOCATE command with two line numbers specified causes the program 
to be searched only within the range indicated. 

If the sequence of characters is found the line containing them will be displayed 
and the current line pointer will be positioned at that line. 

If the sequence of characters is not found nothing will be displayed and the 
current line pointer will not be changed. 

The search is performed independent of the case mode of the characters in the 
program. 
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Example: 

0010 FOR 1=1 TO 20 

0020 PRINT "Now is the time for all good men to come to the aid of" 

0030 PRINT "country." 

0040 NEXT I 

-LOCATE "y" 10 40 

0030 PRINT "country." 

-LOCATE 111 

0040 NEXT I 

-LOCATE /I/ 10 40 

0010 FOR 1=1 TO 20 

-LOCATE 

0020 PRINT "Now is the time for all good men to come to the aid of" 
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8.14 LFLIST Command 

1 LPLIST 

2 LP<n>LIST 

Where: 

<n> ::= 1 
2 
3 

4 

See also: Down, and LIST commands 



Purpose: 

The LPLIST command allows the user to list the current program on the list device 
(usually the line printer). 

Comment: 

The LPLIST command cannot be used if the program in memory is read protected (see 
LOAD command). 

The LPLIST command functions identically to the LIST command except the output is 
placed on the listing device (PRINTERl) instead of the console and no line number 
range is allowed. 

The alternate form of the command (LP<n>LIST) specifies that one of the alternate 
listing devices is to be used (PRINTERl, PRINTER2, PRINTERS, or PRINTER4), if 
attached. 
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8.15 LPXREF Command 

1 LPXREF 

2 LF<ii>XREF 

Where: 

<n> : : = 1 
2 
3 
4 

See also: XREF command 



Purpose: 

The LPXREF command produces a cross reference listing of the source program in 
memory on a printer. 

Conment: 

The LPXREF command cannot be used if the program in memory is read protected (see 
LOAD command ) . 

The LPXREF command functions identically to the XREF command except the output is 
placed on the listing device (PRINTERl) instead of the console. 

The alternate form of the command (format 2) specifies that one of the alternate 
listing devices is to be used (PRINTERl, PRINTER2, PRINTERS or PRINTER4), if 
attached. 
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8.16 MODIFY Comund 

1 MODIFY 

2 MODIFY <raiige> 

Where: 

<range> : : = <line number> 

<line number> <line number> 
<line number>,<line number> 

See also: CHANGE command 



Purpose: 

The MODIFY command allows you to make changes to a line or lines of code without 
re-entering the entire line. 

Coament: 

The MODIFY command cannot be used if the program in memory is read protected (see 
LOAD command). 

The MODIFY command operates very similar to the MODIFY command in the OASIS system 
EDIT program. 

When no <range> is specified the current line displayed and you are allowed to 
modify it. After finishing the modification of that line control returns to the 
command mode of BASIC. 

When <range> is specified the first line included in the range of lines specified 
is displayed and you are allowed to modify it. After finishing the modification of 
that line the next line included in the range of lines specifies is displayed, 
etc., until the last line in the range is modified, at which point control returns 
to the command mode. 

While in the modify mode of BASIC there is a certain set of sub-commands available 
to facilitate modification of each line: 

I Allows you to insert characters at the current cursor position. All 

characters typed after the I has been entered are added to the line 

before the current character. As each character is added to the line 
the remainder of the line is re-displayed. 

To exit from the insert character command type a carriage return. 

While in the insert character command you may backup one character 
position by typing the RUBOUT key. This backs the cursor up one 
position and deletes that character. It is possible to backspace 
past the position that the insert command was given. 
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D Allows you to delete the current character from the line. Every time 
a D is typed the current character is deleted from the line and the 
character is erased from the screen. 

R Allows you to replace characters in the line. All characters typed 
after the R has been entered will replace the characters in the line. 

To exit from the replace character command type a carriage return. 

While in the replace character command you may backup one character 
position by typing the RUBOUT key. This backs the cursor up one 
position without deleting that character. It is possible to 
backspace past the position that the replace command was given. 

<sp> Allows you to advance the current character one position to the 
right. You may not advance past the end of the line, however, you 
may insert new characters at the end of the line or replace 
characters at the end of the line. 

The right arrow key has the same effect as the space character. 

F Allows you to advance the current character pointer to a specified 
character. The F character is followed by the character to find. 
When the second character is entered the cursor is advanced to the 
next occurrence of that character in the line. 

U Allows you to convert characters to their upper case value. When the 
U is entered the current character is converted and re-displayed in 
its upper case form, and the cursor is advanced to the next 
character. 

L Allows you to convert characters to their lower case value. When the 
L is entered the current character is converted and re-displayed in 
its lower case form, and the cursor is advanced to the next 
character. This command is only effective within a quoted string 
literal or a remark statement. 

<RUB> Allows you to backspace the current character one position to the 
left. You may not advance past the beginning of the line. 

The left arrow and CTRL/H have the same effect as the RUBOUT key. 

B Allows you to quickly position to the beginning of the line. 

E Allows you to quickly position to the end of the line. 

<CR> Terminates the modification of the line. 

ESCyC Terminates the modification of the line and restores the line to its 
original, unmodified, contents. 

Due to the graphic and character by character nature of the modify command no 
example will be given here. Instead it is suggested that you experiment with it. 
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8.17 NAME Command 

1 NAME 

2 NAME <program xLame> 

Where: 

<program name> ::= [<file name>] [.<file type>[:<file disk>] ] 
<file type> ::= BASIC 

BASICOBJ 

See also: SAVE command 

Purpose: 

The NAME command allows you to change the name of the program in memory. 

Comnentis 

The NAME command operates in two modes: display current name (format 1); change 
current name (format 2). 

Format 1 of the NAME command causes the current program name, type, and disk to be 
displayed. 

Format 2 of the NAME command causes the current program name to be changed to the 
name specified. If the program type is omitted the program type will be changed to 
BASICOBJ. If the program disk is omitted the current program disk will be 
retained. 

The file type of a read protected program should not be changed from BASICOBJ. 

Note: The OASIS command RENAME should not be used to change the file type of a 
BASIC program due to unpredictable results. 

Examp le : 

-NAME TEST. BASIC: A 

-NAME 

TEST.BASIC:A 

-NAME TESTIT 

-NAME 

TESTIT.BASICOBJ:A 
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8.18 NEW Command 



1 NEW 



Purpose: 

The NEW command allows the user to enter a new program. 
Comment: 

The NEW command effectively clears memory. In actuality all of the BASIC pointers 
are reset to indicate that there is no program in memory. All of the BASIC work 
area is available for use by the new program to be entered. Additionally the name 
of the program is cleared. 

A NEW command is executed automatically when BASIC is loaded and executed by the 
Operating System. 

The NEW command is the only method of unloading a USR program without exiting 
BASIC. 

Specifically, the NEW command performs the following actions: 

* All files are closed. 

* All file buffers are deleted from memory. 

* The current program and program name are erased. 

* Any USR program is erased and memory restored. 

* All variables, constants, and internal tables are initialized. 



Examples: 

-NEW Memory is initialized. 

Incorrect examples: 

-NEW TESTl No operand is allowed. 
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8.19 QUIT Conmand 

1 QUIT 

2 QUIT <strlng lltcral> 

3 QUIT <niiiiierlc literal> 



Purpose: 

The QUIT command allows the user to exit from the BASIC environment. 

Conmieiit: : 

When the QUIT command is executed all open I/O channels are closed. 

The QUIT command always exits from BASIC. If BASIC was invoked by a keyboard 
command then control is returned to the Command String Interpreter environment. If 
BASIC was invoked by an EXECutive procedure then control is returned to the 
EXECutive procedure that called it. The EXEC resumes control with the statement 
that followed the BASIC command. In either case the return code is set to zero. 



To exit BASIC without returning control directly to the environment that 
invoked from one of the optional literals is specified. 



it was 



A numeric value indicates the value that the return code is to be set to. This 
return code may then be examined by the EXEC that invoked BASIC. If BASIC was not 
invoked by an EXEC then setting the return code will have no usable effect. 

A string value indicates a CSI command to be executed. The value must specify the 
command name and all arguments and options desired. After the command has 
completed execution the return code is set by that command. If BASIC was invoked 
by an EXECutive procedure and a string value is specified with the QUIT command, 
control will return to the EXEC program after the CSI command has completed 
execution. 

When the first character of the string value is the character ">" the string will 



be displayed 
keyboard. 



on the console terminal, just as if it had been entered from the 



Examples: 
-QUIT 

-QUIT LIST DAILY REGISTER 



Explanation: 

Control returns to the environment 
from which BASIC was invoked. 

BASIC is exited and the file named 
DAILY REGISTER is listed on the console. 



BASIC 
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8.20 RENUMBER Comaand 



1 RENUMBER 

2 RENUMBER <£irst> 

3 RENUMBER <f lrstXcharXiiicreaient> 

4 RENUMBER <£lrst><char><liicre]Dent><cliar><8tart> 

5 RENUMBER <£lrstXchar><iiicreinent><cliar><start><char><eiid> 
Where: 



<char> ::= <space> 
<coiaiiia> 
<first> ::= <line number> 
<increment> ::= <line number> 
<start> ::= <line number> 
<end> ::= <line number> 



Purpose: 

The RENUMBER command allows you to resequence all or part of the program in memory. 
Cononeiit:: 

Format 1 of the RENUMBER command will resequence all of the program in memory, from 
the beginning of the program through the end of the program. The resulting program 
will have its first line numbered using the default increment value (default is 10) 
with each subsequent line incremented by the current increment value. 

Format 2 of the RENUMBER command will resequence all of the program in memory from 
the beginning of the program through the end of the program. The resulting program 
will have its first line numbered according to the <first> line number as specified 
with each subsequent line incremented by the default increment value. 

Format 3 of the RENUMBER command will resequence all of the program in memory from 
the beginning of the program through the end of the program. The resulting program 
will have its first line numbered according to the <first> line number as specified 
with each subsequent line incremented by the <increment> as specified. 

Format 4 of the RENUMBER command will resequence that portion of the program in 
memory as specified by the <start> parameter through the end of the program. The 
resulting program will have that <start> line numbered according to the <f irst> 
line number as specified with each subsequent line incremented by the current 
increment value. 

Format 5 of the RENUMBER command will resequence that portion of the progarm in 
memory as specified by the <start> parameter through the line specified by the 
<end> parameter. The resulting program will have that <start> line numbered 
according to the <first> line number as specified with each subsequent line 
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incremented by the <increment> as specified. 

Formats 4 and 5 of the RENUMBER command will not allow you to resequence a program 
such that the result would cause lines to be merged. For example, a program with 
lines consecutively numbered from 10 through 100 could not be renumbered with 
RENUMBER 20 5 50 100 as this would cause lines 50 through 100 to collide with other 
existing lines. When this is attempted the error message "Renumber Range Error" is 
displayed. 

All of the formats of the RENUMBER command will adjust all references in the 
program from the old line numbers to the new line numbers- This includes 
references made by the statements: ELSE, GOSUB, GOTO, IF, ON ERROR, ON GOTO, ON 
GOSUB, RESTORE, RESUME, RETURN, and THEN. Additionally, relational expressions 
with the function ERL on the left of the relation with a integer literal on the 
right (line number) will be adjusted. 

Statements that previously referenced an undefined line number will be adjusted to 
reference an undefined line in the same relative location as before. For example, 
a program with lines consecutively numbered from 10 through 100 by 10s with a line 
reference to line 11 (non-existent) that is renumbered will have that line 
reference adjusted to line 15. 

Because good, complete examples of program renumbering would be quite lengthy none 
will be given. Instead, it is suggested that you "play" with the command on one of 
your own programs. Be sure to save the program on disk if it is a program that you 
do not want renumbered. 
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8.21 RUN CoBDand 



1 RUN 

2 RUN <progra]ii nam&> 

3 RUN <startliig llne> 

4 RUN <program naBe> <startliig llne> 

Where: 

<program name> ::= <file name> [.<f ile type>] [:<f ile disk>] 
<file type> ::= BASICOBJ 
<starting line> ::= <line number> 

See also: LOAD command 



Purpose: 

The RUN command allows the user to execute a program already in memory or one 
stored on disk. 

Comment: 

When <program name> is not specified, the program currently in memory is executed, 
starting with the first line of the program, or at the line number specified. 

Before the RUN command is executed, a CLEAR conmaand is automatically executed. 

<program name>, when specified, may be a string literal or an unquoted string 
literal. <program name> may not be a variable. 

When the <program name> is specified, a search is made for the program. If the 
program is not found, the error message 'File Not Found' is displayed. If the 
program is found, a NEW command is executed and the specified program is loaded. 
Execution begins with the smallest line number, or at <starting line>, if 
specified. 

<starting line> may be a line number that does not exist in the referenced program, 
in which case execution will begin at the first line greater than or equal to the 
specified line number. 



Examples: Explanation: 

-RUN Program in memory is executed. 

-RUN TEST Program "TEST" is loaded and executed. 
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8.22 SAVE CoBoand 

1 SAVE 

2 SAVE <prograiL namB> 

Where: 

<prograni name> ::= [<file name>] [.<file type>] [:<file disk>] 
<file type> ::= BASIC 

BASICOBJ 

See also: LOAD and NAME commands 

Purpose: 

The SAVE command allows the user to save a program as a disk file. 

ConaiPiits 

The entire <program name> operand is optional, and when omitted, the program will 
be saved under the name that it was LOADed, CHAINed, LINKed, or RUN under. If a 
name is not currently defined and the operand is omitted, an "Invalid Program Name" 
error will result. 

<File disk> is optional — when not specified drive A will be used. The <file type> 
defaults to BASICOBJ unless the program already has a name with a file type of 
BASIC. 

The program name, type, and disk will be displayed on the terminal after the 
program has been successfully written to disk. 
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Examples: 

-SAVE TEST: A 
"TEST.BASICOBJ:A" save 
-SAVE 
SAVE 

-SAVE TEST:S 
"TEST.BASICOBJ:S" saved 



Explanation: 

The program in memory will be written to 

disk and given the name 'TEST.BASICOBJ:A'. 

The program will be saved under the same 

name as loaded, i.e., the program will be 

updated on disk. 

The program in memory will be written 

to disk and given the name 'TEST.BASICOBJ:S' 



Incorrect Examples: 

-SAVE 

-SAVE TEST:T 



Explanation: 

Program name must be specified if there is 
no prior LOAD, CHAIN, LINK, or RUN executed. 
Invalid unit specified. 



SAVE 
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8.23 STEP Comraand 

1 STEP 

2 STEP <count> 

See also: BREAK, TRACE, UNBREAK, UNTRACE, and VARS commands 



Purpose: 

The STEP command allows the program to "single step" through the execution of the 
program. 

Commeiit:: 

Format 1 of the STEP command causes the next statement in the program to be 
executed and a debugging break occurs. 

Format 2 of the STEP command causes the next <count> statements in the program to 
be executed and a debugging break occurs. 

Note that the STEP command operates on statements, not lines. Therefore it is 
possible to single step through each statement in a multi-statement line. 



Examp le : 

-LIST 

10 FOR I%=1 TO 3 
20 PRINT 1% 
30 NEXT 
-STEP 

Break at line 20 
-STEP 

1 
Break at line 30 
-STEP 

Break at line 20 
-STEP 3 

2 

3 
Break at line 30 
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8.24 Top Conaand 



TOP 



Purpose: 

The top command positions to the first line in the program and displays that line. 

Comient: 

The top command cannot be used if the program in memory is read protected (see LOAD 
command) • 



Examples: 

Stop at line 0020 
-<CR> 

20 MIDDLE% = LINE(0)/2. 
-TOP 

10 REM Program: SAMPLE 
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8.25 TRACE and UNTRACE Conmands 

1 TRACE 

2 TRACE VARS 

3 UNTRACE 



Purpose: 

The TRACE and UNTRACE commands allow the programmer to trace the line numbers being 
executed by a program. 

Cofimieiil: : 

Format 1 of the TRACE command turns the line number display on during execution. 

Format 2 of the TRACE command turns the line number display on during execution and 
causes the display of all variables changed during the execution of each statement. 

The UNTRACE command turns the line number display off during execution. This is 
the normal mode of program execution. 

When a program is being traced each statement that is executed causes the line 
number of the statement to be displayed on the left hand sided of the console, in 
angle brackets. When TRACE VARS is in effect and a variable is changed by a 
statement the variable name and value that it was set to will be displayed on the 
left hand side of the console, in angle brackets. 

Each statement of a multi-statement line, when executed, causes the line number to 
be displayed. The second and subsequent statements in a multi-statement line will 
be indicated by an offset count after the line number, indicating the relative 
offset of the start of that statement, from the start of the line. This offset 
value relates to the offset in the compressed, internal format, not the displayed 
format of the line. Nevertheless, this value is helpful in determining which 
statement of the multi-statement line is being executed. 
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Example: 

0010 GOSUB 100 \ PRINT TOTAL 

0020 FOR 1% = 1 TO 3 

0030 PRINT 1% 

0040 NEXT 

0050 STOP 

0100 TOTAL = 4.34 \ RETURN 

-TRACE 

-RUN 

<10> 

<100> 

<100,18> 

<10,5> 4.34 

<20> 

<30> 1 

<40> 

<30> 2 

<40> 

<30> 3 

<40> 

<50> 

Stop at line 50 

-TRACE VARS 

-RUN 

<10> 

<100> 

<T0TAL = 4.34> 
<100,18> 
<10,5> 4.34 
<20> 

<I% = 1> 
<30> 1 
<40> 

<I% = 2> 
<30> 2 
<40> 

<I% = 3> 
<30> 3 
<40> 

<I% = 4> 
<50> 

Stop at line 50 
-UNTRACE 



Explanation: 



Execute line 10, GOSUB statement 

" " 100, LET statement 

" " 100, RETURN statement 

" " 10, PRINT statement 

" " 20, FOR statement 

" " 30, PRINT statement, 1st time 

" . " 40, NEXT statement, 1st time 

" " 30, 2nd time, prints 2 

" " 40, 2nd time 

" " 30, 3rd time, prints 3 

" " 40, 3rd time 

" " 50, STOP statement 



Execute line 10, GOSUB statement 

" " 100, LET statement 
Variable changed 
Execute line 100, RETURN statement 

" " 10, PRINT statement 

" " 20, FOR statement 
Variable changed 
Execute line 30, PRINT statement, 1st time 

" " 40, NEXT statement, 1st time 
Variable changed 
Execute line 30, 2nd time, prints 2 

" " 40, 2nd time 
Variable changed 
Execute line 30, 3rd time, prints 3 

" " 40, 3rd time 
Variable changed 
Execute line 50, STOP statement 



TRACE/DNTRACE 
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8.26 UNBREAK Command 

1 UNBREAK 

2 UNBREAK AT <llne re£erence> 

3 UNBREAK ON <varlable> 

Where: 

<line reference> ::= <line number> 

<line label> 

See also: BREAK, STEP, TRACE, UNTRACE, and VARS commands 

Purpose: 

The UNBREAK command clears break points set by the BREAK command. 

Comment : 

Format 1 of the UNBREAK command will clear all break points currently set. 

Format 2 will clear all break points referring to the specified line reference. 

Format 3 will clear all break points currently set, referencing the specified 
variable. 

For an example see the BREAK command. 
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8.27 Up Connand 

1 <up arrov> 

2 <c<mtrol/Z> 

See also: Down, and LIST commands 

Purpose: 

The Up command allows you to backup and display the previous line in the program. 

Conment: 

The up command cannot be used if the program in memory is read protected (see LOAD 
command). 

Both forms of the up command operate identically. 

When the up command is entered the current line pointer is adjusted one line 
backward and the current line is displayed. 

Attempting to executed the up command when the current line is at the first line of 
the program the message TOF: is displayed indicating that you are at the top of 
file. 
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8.28 MARS Conmand 

1 VARS 

2 VARS <varlable llst> 

Where: 

<variable list> ::= <variable name>[,<variable list>] 
See also: BREAK, STEP, TRACE, UNBREAK, and UNTRACE commands 



Purpose: 

The VARS command allows the programmer to easily see the status of all variables 
defined in a program. 

Commenti : 

Format 1 of the VARS comand causes each variable currently defined in the program 
to be displayed on the console, one variable per line, along with the contents of 
the variable. The sequence in which the variables are listed is the inverse 
sequence that the variables were initially defined in. 

Format 2 of the VARS command causes each variable in the list to be displayed, one 
variable per line, along with the contents of the variable. 

Dimensioned arrays are displayed one element per line. 



Example: 

-VARS 

A$ = "ABCDEFG" 
1% = 12 
Rl = 12.34 
Rl$ = "TOTAL" 
R3 = 1.234567 
Y(l) = 1 
Y(2) = 2 
Y(3) = 3 
Y(4) = 22 

-VARS A$,R1$,R3 
A$ = "ABCDEFG" 
Rl = 12.34 
R3 = 1.234567 
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8.29 ZREF Cknamand 

1 ZREF 

See also: LPXREF command 



Purpose: 

The XREF command allows you to display all of the variables and lines used or 
referenced in the program. 

Comment: 

The XREF command cannot be used if the program in memory is read protected (see 
LOAD command ) . 

The XEEF command lists the program in memory on the console and then lists two 
tables of cross references for the program. 

The first table lists all line numbers referenced and line labels defined or 
referenced along with the line number of the statement referencing the line number 
or label. In the table of references to line labels the line number of the line 
defining the label will have a colon following the line number. 

The second table lists all variables and constants referenced in the program, in 
alphabetic order, followed by the line number of the statement with the reference 
to the variable or constant. A statement with multiple references to the same 
variable or label will have multiple occurrences of the line number in the table. 

Array names are denoted by a pair of parentheses following the array name. 

Each of the line number references in the second table will be followed by a single 
letter code indicating the type of reference to the variable or constant: 

R Term used in an input type statement (INPUT, LINPUT, LINPUT USING, 
MAT INPUT, MAT READ, READ, READNEXT, and GET). 

W Term used in an output type statement (DELETE, MAT PRINT, MAT WRITE, 
PRINT, PRINT USING, PUT, and WRITE). 

M Term was modified by statement (LET, FOR, and MAT). 

All other types of statements are unmarked. 

The variables and constants are listed in the following sequence: variables, string 
constants, floating point constants, and integer constants. 
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Examp le : 
-XREF 

10 OPEN #1: "NAME. DATA", INPUT SEQUENTIAL 
20 LOOP: PRINT CRT$("C"); 



30 

40 

50 

60 

70 

80 

90 
100 
110 EXIT: 

Line /Label 

EXIT: 

INPUT: 

LOOP: 



1% = 

INPUT: L INPUT #1: A$ 

IF EOF(l) THEN GOTO EXIT 

PRINT AT$(6,I%+3);EXT$(A$,1,0); 

PRINT AT$(6,I%+6);EXT$(A$,4,0); 

1% = I%+5 \ IF I%+5<23 THEN GOTO INPUT 

WAIT 

GOTO LOOP 
END 

References 

50 0110: 
40: 80 
20: 100 



Variable/Constant References 



A$ 


40R 


60W 


70W 


1% 


30M 


60W 


70W 


"C" 


20W 






"NAME. DATA" 


10 









30 


60W 


70W 


1 


10 


40R 


50 


3 


60W 






4 


70W 






5 


80 


80 




6 


60W 


70W 


70W 


23 


80 







80M 80 



60W 



80 
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STATEMENTS 



This chapter discusses each statement in a separate section, 
described in four subsections: 



Each statement is 



1- General form: defines the syntax of the specific statement. For 
visibility this information is placed in a box at the top of the page. 
Note: the characters ::= should be read as "is defined as". 

2. Purpose: one or two sentences that summarizes the purpose or general 
function of the statement. 

3. Conmient: detailed description of the statement specifying any 
restrictions, exceptions or errors that may occur. 

4« Exaiiq>les: general examples of the various forms of the statment if 
applicable. 

For the convenience of novice programmers the BASIC statements are listed below by 
logical groups. In the body of this chapter, however, the statements are listed in 
alphabetic sequence, for quick reference purposes. 

An appendix at the back of this manual lists all of the statements with their 
general syntax requirements. 

A. Control and/or Branching Statements 

CASE Used with SELECT 

CEND Used with SELECT 

ELSE Used with IF 

END Exits program 

FNEND Marks end of user defined function 

FOR Loop control 

GOSUB Execute subroutine 

GOTO Unconditional branch 

IF Test expression-branch or execute depending on result 

IFEND Marks end of multi-line IF 

NEXT Used with FOR 

ON ERROR Invokes user written error handling routine 

ON GOSUB Selects subroutine depending upon value 

ON GOTO Selects branch depending upon value 

OPTION Set various options 

OTHERWISE Used with SELECT 

QUIT Exits BASIC 

RESTORE Resets DATA pointer 

RESUME Exits user written error handling routine 

RETURN Exits subroutine 

SELECT Specifies value that determines statements to be executed 

SLEEP Suspends processing for period of time 

STOP Exits program 

THEN Used with IF 

WAIT Pauses at bottom of screen display 

WEND Marks end of WHILE structure 

WHILE Executes statements while expression is true 
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B. Assignment and Declaration Statements 



CLEAR 

COMMON 

DATA 

DEF 

DIM 

LET 

MAT 



Erase variables from memory 

Defines variables used between program modules 

Defines data constants 

Defines user defined function 

Allocates array space 

Assigns value to variable 

Assign values to arrays 



C. File Input and Output Statements 



CLOSE 

DELETE 

GET 

INPUT 

L INPUT 

LINPUT USING 

MAT INPUT 

MAT PRINT 

MAT READ 

MAT WRITE 

MOUNT 

OPEN 

POKE 

PRINT 

PRINT USING 

PUT 

READ 

READNEXT 

UNLOCK 

WRITE 



Closes file 

Erase record from file 

Get data from I/O devices 

Accepts ASCII data from file 

Accepts line of ASCII data from file 

Accepts line of ASCII data with control 

Accepts ASCII data from file-assigns to array 

Outputs ASCII data to file from array 

Accepts data from file-assigns to array 

Outputs data to file from array 

Allows change of disk 

Opens file for subsequent input and output 

Modifies memory 

Outputs ASCII data to file 

Outputs formatted ASCII data to file 

Puts data to I/O devices 

Accepts data from file 

Accepts data from indexed file 

Release record for other users use 

Outputs data to file 



D. Program Linkage Statements 



CHAIN 
CSI 
LINK 
RUN 

E. Other Statements 



Branches to another program 
Executes system program 
Branches to another program 
Branches to another program 



empty or null statement 

RANDOMIZE 

REM 
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9.1 CASE Statement 

I I 

I 1 CASE <ezpresslon> | 

I I 

I See also: CEND, OTHERWISE and SELECT statements | 



Purpose: 

The CASE statement is part of the SELECT-CASE-CEND programming structure that 
allows conditional execution of statements in a structured manner. 

Comnient: 

The form and function of the CASE statement depends upon which format of the SELECT 
statement was used at the beginning of the SELECT-CASE-CEND structure. Format 1 of 
the SELECT statement requires that the CASE statements have relational expressions; 
format 2 of the SELECT statement requires that the CASE statements have expressions 
the match in type to the expression used in the SELECT statement — numeric with 
numeric, string with string. 

When the CASE statement is used with format 1 of the SELECT statement the 
relational expression of the CASE statement is evaluated and, if true, the 
statements following the CASE statement will be executed. 

When the CASE statement is used with format 2 of the SELECT statement the 
expression of the CASE statement is compared to the expression of the SELECT 
statement and, if true, the statements following the CASE statement will be 
executed. 

When the evaluation of the CASE statement causes the statements following the CASE 
statement to be executed, execution will continue until another CASE, CEND, or 
OTHERWISE statement is encountered at the same level. 

When the comparison is false the statements following are skipped until another 
CASE, CEND, or OTHERWISE statement is encountered for this SELECT-CASE-CEND 
structure. 

SELECT-CASE-CEND structures may be nested to any level. 

It is best to use different levels of indentation to illustrate the structure of a 
nested SELECT structure — the CASE statement does not indicate which SELECT 
expression is being used — only the BASIC execution module "knows" unless you use 
some form of documentation. 

This programming structure should be used to replace complex IF-THEN-ELSE 
statements, ON-GOTO, and ON-GOSUB statements to produce a more structured program. 
It is much more versatile than the ON statement because the conditional execution 
is determined by a general expression rather than an integer expression with only 
positive, sequential values. 

This structure is particularly useful for a menu tree when the controlling 
expression is a string. 
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Note: Any statements between a SELECT statement and the first CASE statement will 
never be executed unless they are branched to. 

Note: The program should never branch out of a SELECT-CASE-CEND structure without 
executing the CEND statement as the internal SELECT stack will not be cleaned up 
which will result in un-necessary memory usage. 



Example: Explanation: 

0010 INPUT CONTROL$ Accept control value 

0020 SELECT CONTROL$ Using this control value then: 

0030 CASE "" If control is null execute following 

else skip to line 60 
0040 PRINT CONTROL$ Only executed when C0NTR0L$ is empty 

0050 GOSUB 1000 " " " " 

0060 CASE "HELP" If control is "HELP" execute following 

else skip to next CASE or CEND 
0070 GOSUB 2000 Only executed when CONTROL $="HELP" 

0080 QUIT " " " " 

0085 CASE C0NTR0L$ If control = control (always true) 
0087 PRINT "Invalid input"; 

0090 CEND End of select structure 

0100 SELECT Same as above 

0110 CASE C0NTR0L$="" 
0120 PRINT CONTROL $ 

0130 GOSUB 1000 
0140 CASE CONTROL $= "HELP" 
0150 GOSUB 2000 

0160 QUIT 

0170 OTHERWISE 

0180 PRINT "Invalid input" 
0190 CEND 
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9.2 CEHD Stateaent 



I 1 CEND 

I 

I See also: CASE, OTHERWISE and SELECT statements 



Purpose: 

The CEND statement is part of the SELECT-CASE-CEND programming structure that 
allows conditional execution of statements in a structured manner. 

Coflment: 

The CEND statement marks the end of the SELECT structure. 
There is only one CEND for each SELECT. 



Examp le : 

1010 SELECT OPTION$ 



1020 


CASE 


"HELP" 


1030 




GOSUB DISPLAY. HELP 


1040 


CASE 


"INIT" 


1050 




GOSUB INIT.VAR 


1060 




GOSUB INIT. FILE 


1070 


CASE 


"PRINT" 


1080 




DEVICE. NUM% =16 


1090 


CASE 


"TYPE" 


1100 




DEVICE. NUM% = 15 


1110 


CEND 




1120 


RETURN 





Explanation: 

Using variable OPTION$ 

Perform if OPTION$="HELP" 



Perform if OPTION$="INIT" 
It II II 



Perform if OPTION$="PRINT" 
Perform if OPTION$="TYPE" 
Perform always 
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9.3 CHAIN Statement 

1 CHAIN <progra]i nane expr> 

2 CHAIN <prograM nane eipr>»<line ninjber>] 

Where: 

<prograin name expr> ::= <file name>[.<file type>] [:<file disk>] 
<file type> ::= BASICOBJ (with BASIC) 
BASICCOM (with RUN) 

See also: CLEAR, LINK and RUN statements 



Purpose: 

The primary use of the CHAIN statement is to link together BASIC program segments. 

ConBneat: 

The CHAIN statement terminates the execution of the program in which it is 
encountered, loads the program indicated, and continues execution at <line number> 
or at the beginning of the program segment. 

The CHAIN statement will close all open channels (files) and all variables that 
have not been defined as COMMON variables will be cleared from memory. 

The <line number > operand, when used, should be a valid line number in the program 
specified. The <line number> operand should not be used for two reasons: it is 
difficult to maintain a set of programs when it is used and, most importantly, this 
feature will not be supported in future versions of OASIS BASIC. The recommended 
method of transferring control to another program at a specific line is the use a 
control variable (defined as COMMON) that is tested by an ON-GOTO statement at the 
start of the program transferred to. 

The <program name> must be a valid string expression. If the program cannot be 
found in the directory, a non-trapable error will occur. 

Note: When the RUN version of BASIC is being used (execution of compiled programs 
only) only programs that have been compiled and have a file type of BASICCOM will 
be searched for by this command. 

The CHAIN statement will "wrap up" all active programming structures: FOR-NEXT, 
WHILE-WEND, IF-THEN-ELSE, IF-IFEND, SELECT-CASE-CEND, and the ON ERROR will be 
turned off. 
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The CHAIN, RUN, and LINK statements all perforin similar tasks, but with significant 
differences: 

Program Linkage Statenents 



Statement | I/O Channels | Variables 



RUN 

CHAIN 

LINK 



Closed 
Closed 
Not closed 



Cleared 
Cleared 
Cleared 



I COMMON 

I Cleared 

J Not cleared 

I Not cleared 



Examples: 

0010 CHAIN "SEGMOl" 



0030 CHAIN "SEGMO"&NUM(I)&":S 



»I.O»» 



Explanation: 

Program named 'SEGMOl' will be 
loaded, all files will be closed, 
& control will pass to the first 
statement of 'SEGMOl'. 
When I equals 1, this statement 
is the same as example 10. 
If I is equal to 3, program 
'SEGM03' will be executed, etc 



Incorrect example: 
0010 CHAIN "SEGMENT- 1" 
0020 CHAIN "PROGRAM" LABEL 



Explanation: 

Program name can only be 8 
characters long. Also, - is invalid. 
Line labels are not allowed. 
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9.4 CLEAR Statement 

1 CLEAR 

2 CLEAR <varlable llst> 

Where: 

<variable list> ::= <numeric variable>[,<variable list>] 

<string variable>[, <variable list>] 
<array name>[,<variable list>] 

See also: CHAIN, COMMON, LINK and RUN statements 



Purpose: 

The CLEAR statement initializes the working storage area. 

ComiDent: 

The CLEAR statement effectively erases all variable names and their contents from 
memory. 

Variables defined as COMMON variables are not erased by this command. 

This operation is performed automatically whenever a CHAIN, LINK, LOAD, NEW, or RUN 
command is executed. It may be necessary to use this separate command when there 
are many variables defined in working storage that are not going to be used again, 
and there are no variables whose loss would be detrimental to program execution. 

The main advantage gained is a fresh work area that may allow the program to 
continue execution that, without it, might have required more memory than 
available. 

Optionally this statement may clear specific variables (or complete arrays) from 
memory when they are no longer needed by the program. 



Examples: 

0010 CLEAR 

0020 CLEAR A,B,INDEX% 



0030 CLEAR ARRAY 1$, A, B 



Explanation: 

All variables are cleared from memory. 
Only the variables A, B, and INDEX% are 
cleared from memory (unless they were 
defined as COMMON). 

The entire array ARRAY 1$ is erased from 
memory along with the variables A and B. 
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9.5 CLOSE Statement 



1 CLOSE #<chaiinel> 

Where: 

<channel> ::= <integer express ion> 
See also: CHAIN, CSI, END, MOUNT, OPEN, QUIT and RUN statements 



Purpose: 

The CLOSE statement is used to terminate I/O between the BASIC program and a data 
file. 

Coimeiit: 

The CLOSE statement causes the output of the last block, of data to the file. 
Execution of a CHAIN, END, or CSI statement automatically closes all open files. 
The RUN command automatically closes any open files before execution begins. The 
QUIT command will close any open files before exiting BASIC. 

The <channel> must have the same value as that used with the OPEN statement. 

Once a file has been closed, it may be reopened on any available channel number. 

If the user should happen to abort a BASIC program (by an IPL or power failure) 
when indexed or sequential files are open, errors may exist in the file directory 
or in the file itself. It is acceptable to abort the program by using the Program 
Cancel-key or the System Cancel-key, but exiting by a system reset button or power 
failure can be disasterous. 



Examples: 

0010 CLOSE #1 
0020 CLOSE #INPUT% 



Explanation: 

File opened on channel one is closed. 
File opened on channel corresponding 
to value of variable INPUT% is closed. 



Incorrect examples: 

0010 CLOSE "IVY MASTER A" 
0020 CLOSE //4,#5,//6,#10 
0030 CLOSE #17 



Explanation: 

File names are not allowed. 
Multiple channels not allowed. 
Channel 17 is invalid. 
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9.6 GOUMON Statement 



1 COMMON <Varlable ll8t> 

Where: 

<variable list> ::= <simple variable>[,<variable list>] 

<dim variable>[,<variable list>] 
<dim variable> ::= <array name>(<diniension>[,<dimension>] ) 
<dimension> ::= <numeric expression> 

See also: CLEAR, DIM, OPTION, and RUN statements 



Purpose: 

The COMMON statement allows you to specify that certain variables are shared 
between segments of a program and are, therefore, not to be cleared. 

Comment: 

The COMMON statement must be the first statement on a line — there can be no line 
label specified on the same line as a COMMON statement. 

The COMMON statement is an executable statement, similar to the DIM statement — in 
fact, it must be executed before any references to the variables it is defining as 
common are made. 

When a program is RUN, CHAINed to, or LINKed to, the entire program is scanned for 
any and all COMMON statements. When one is found the variables specified on that 
statement are searched for in the COMMON variable storage. When a variable is 
found it will be left as is. When a variable is not found in the COMMON variable 
storage area it will be defined or dimensioned in that area. 

Note: If a variable was used in a previous program but not defined as COMMON before 
its use, the value will not be retained at the time it is defined as COMMON. 

Although it is not necessary to re-define all of the variables that are COMMON 
between programs it is definitely a good programming practice. It is also not 
necessary to specify the variables in a COMMON statement in the same sequence as 
they might have been defined in a previous program's COMMON statement — ^variables 
are accessed by name, not location or sequence. 



Examples: Explanation: 

0010 COMMON A,B,A% The variables A, B, and A% were defined, 

or will be used, by another program. 
0020 COMMON ARRAY$ (5, 22 ), CONTROL Similar to above but also dimensions ARRAY$ 
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9*7 CSI Statement 

I I 

I 1 CSI <strlng-ezp> | 



Purpose: 

The CSI statement allows the BASIC program to execute any OASIS command, resuming 
execution of the BASIC program afterwards. 

Comoieiit: 

All I/O channels will be closed when the CSI statement is executed. 

<String-exp> is any valid OASIS command, with all arguments and options required by 
the specific command. Refer to the OASIS System Reference Manual for complete 

specifications of these coimnands. 

When the first character of <string-exp> is the ">" character, the string will be 
displayed on the console device, otherwise the string will not be displayed 
(command executed in "silent" mode). 

When the CSI statement is executed your BASIC program and all of its work areas are 
marked as protected memory. A special call to the operating system passes the 
string expression to the Command String Interpreter which executes the desired 
program. Upon completion of that program the operating system reloads the BASIC or 
RUN command, if necessary, unprotects the memory area containing your program, and 
continues execution of your program. 

The CSI statement should not be used to execute large OASIS commands because of the 
restricted memory available. Additionally, when the following commands are 
executed the result will be unpredictable: DEBUG, ASSEMBLE, BASIC, and RUN. The 
ATTACH program cannot be called to attach a new device driver; however, it may be 
called to change some options on a currently attached device. In addition the 
stack of the EXEC language must be empty. 



Examples; Explanation: 

0010 CSI "LIST CUSTOMER MASTER (PRINT NOHEAD)" 

The file CUSTOMER MASTER is printed without 

headings. 
0015 A$=">filelist a (exec append)" 
0020 CSI A$ Command is displayed. The file 

named SELECTED . EXEC is appended with the 

current filelist from the directory of 

the A disk. 
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9.8 DAXA Stateaent 



1 DATA <data ll8t> 

Where: 

<data list> ::= <data element>[,<data list>] 
<data element> ::= <numerlc constant> 

<quoted string constant> 
<unquoted string constant> 

See also: READ and RESTORE statements 



Purpose: 

The DATA statement is used to define information to be read by the READ statement. 
The DATA and READ statements are useful for defining the initial contents of an 
array, etc. 

Conment:: 

The DATA statement must be the first, and only statement on a line — there can be no 
line label specified on the same line. 

The data elements in one or more DATA statements are used sequentially, in the 
order that they appear in the line, in the order that the lines appear in the 
program. (It is possible to re-use data elements — see RESTORE statement.) 

When a data element is to contain leading or trailing spaces or embedded commas it 
must be defined as a quoted string constant. 

This statement, along with the READ and MAT READ statement, is very useful for 
defining the initial values to be used for variables and array elements. It is 
much faster to perform a READ or MAT READ than it is to use the LET statement. 



Examples: 

10 DATA 1.23, 2. 34, 3. 45, LITERAL, ANOTHER LITERAL 

20 DATA "He said, ""Bring the glass. ""","T. J. Collins, Jr." 

30 DATA 1,1,2,1,1,1,0,1,1,5,1,16,1,-1 
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9.9 DEF Statement 

1 DEF FN<Varlable>(<arguBient8>) = <ezpresslon> 

2 DEF FN<varlable> = <ejq>re8slon> 

3 DEF FN<Varlable>(<arg;iiinents>) 

4 DEF FN<varlable> 

Where: 

<variable> ::= <simple variable naiiie> 

<arguments> ::= <simple variable name>[,<arguments>] 

See also: FNEND and LET statements 



Purpose: 

The DEF statement allows the programmer to define a user defined function. 

Comment: 

In some programs you may want to execute the same sequence of statements in several 
places. You can define a sequence of operations as a user-defined function and use 
this function like you use the functions BASIC provides. 

The DEF statement has two basic forms: single line (formats 1 and 2); multi-line 
(formats 3 and 4). 

The DEF statement must be the first statement on a line — there can be no line label 
specified on the same line as the DEF statement. 

The <variable> following the characters 'FN' is independent from the program. The 
function is referenced by the complete name, including the FN characters. 

Any variable referenced in the expression which is not an argument of that function 
has its current value in the user program. 

The expression may include any valid element. It should be noted that a single 
line function should not reference itself as this causes an infinite loop. 

The <argument> is a dummy argument: it has no relation to the program and cannot be 
changed by the program. If the dummy argument is also a variable used by the 
program, they are independent of each other. 

The argument must be a simple variable name, that is, array referrences are 
invalid. 

In the single line format of the DEF statement, the variable and the expression 
must match in type, i.e., string variable with string expression, or numeric 
variable with numeric expression. 
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During execution the expression is analyzed and the value is assigned to the 
function. This value takes the place of the function call in the expression that 
references the function. 

In the multi-line forms of the DEF statement there must be a corresponding FNEND 
statement to mark the end of the function definition. 

In the multi-line forms of the DEF statement the statement following the DEF 
statement are executed until the FNEND statement is encountered, at which time the 
value of the function is returned and execution resumes at the location of the 
function reference. The value of the function is assigned by a LET statement in 
the function definition: LET FN<variable> = <expression>. There can be more than 
one of these assignment statements in a function definition but only the last one 
executed will be the assignment used. 

There can be only one FNEND statement for each multi-line function definition. 

Most statements can be used within the function definition (between the DEF and 
FNEND statements). However, transfers into or out of the definition (with GOTO or 
GOSUB) should not be used. (There are no restrictions in this regards except that 
the FNEND statement cannot be executed without performing a multi-line function 
reference. ) 

DATA statements may be READ from a statement within a function definition. 

A multi-line function definition that does not execute an assignment statement 
assigning the value of the function will return the last defined value of the 
function. 

The DEF statement may be placed anjrwhere in the program, however, it is executed 
only when referenced by another statement. 

You may not re-define a DEF function. No error occurs when this is attempted but 
only the first definition is used. 
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Examples: 



Explanation: 



0010 



0020 


B 


= 


2 


0030 


C 


= 


5 


0040 


Y 


= 


10 


0050 


Z 


= 


FNA(B)/FNA(C) 



0100 z 



DEF FNA(X) = SQR(X''2+Y"2))-SQR(X) 

X is the dummy argument. The value of Y 
is taken from the program, 10 in this 
example. Each of the two calls to this 
function in line 50 cause the value of 
the argument, 2 in the first call and 5 
in the second call, to take the place of 
any and all references to that dummy 
variable in the expression of the 
function. The function is evaluated. Line 
100 is an equivalent statement as line 
without using the function calls. 
= (SQR(B"2+Y"2)-SQR(B))/(SQR(C'^2+Y"2)-SQR(C)) 

As can be seen this is not only more 
difficult to read, but when there are 
more references to the same function 
there will be more code involved. 
Multi-line def, arguments of A, B 
GOTO 1030 

Defines value of function and exits. 
Define value of function 
End of definition 
Will print 10. 



1000 


DEF 


FNX%(A,B) 








1010 




IF A>B THEN 


FNX%= 


=A*B+3. 


.4 


1020 




FNX% = A*B 








1030 




FNEND 








1040 


PRINT FNX%(3.1,2. 


.3) 







Incorrect examples: 



Explanation: 



0010 DEF FNA(S'"2) = 2*S+S 
0020 DEF FNA$(B) = 2*B 



Dummy argument must be a simple variable. 
Function name must match expression in 
type (string or numeric). 
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9.10 DELETE Statement 

1 DELETE #<file>,<key> 

Where: 



<file> ::= <integer express ion> 
<key> ::= <string expression> 
<numeric express ion> 



Purpose: 

The DELETE statement deletes a specified indexed or direct record from an open 
file. 

Comment: 

<file> is the channel number of an open, indexed or direct, disk file, with access 
mode of OUTPUT or UPDATE, and an access method of DIRECT or INDEXED. 

<key> is a string expression representing the key of the indexed record to be 
deleted or a numeric expression representing the record number of the direct record 
to be deleted. A string key is required if the I/O channel was opened with access 
method INDEXED, and a numeric key is required if the I/O channel was opened with 
access method DIRECT. 

The record specified by the <key> is removed from the file and the EOF indicator is 
set off. 

When the record is not found the sequential access pointer and the EOF indicator 
will be the same as if the record were found and deleted. 



Examples: 

0010 OPEN #1: F$, UPDATE INDEXED 
0020 OPEN #2: Fl$, UPDATE DIRECT 
0030 DELETE #1,"0001" 
0040 DELETE #2,30 



Explanation: 



Record with key "0001" is deleted. 
Record number 30 is deleted. 



Incorrect Examples: 

0020 DELETE #1,25 

0030 DELETE #1,K$:A1$,A2$ 



Explanation: 

Indexed files use string keys. 
Record variables not allowed. 
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9.11 DIM Statement 

1 DIM <dlm variable ll8t> 

Where: 

<dini variable list> ::= <dim variable> [,<dim variable llst>] 
<dim variable> ::= <simple variable>(<num expr>[,<nuin expr>] ) 

See also: COMMON, MAT, MAT INPUT, MAT PRINT, MAT READ, MAT WRITE, 
and OPTION statements 



Purpose: 

The DIM statement instructs the system to reserve storage space for an array by 
specifying a maximum subscript (dimension). 

Comment: 

The DIM statement is an executable statement. In fact, it has to be executed in 
order to be effective. 

Numeric or string variables may be dimensioned with one or two dimensions. The 
maximum value for each dimension is 32767, however, the restraints of memory size 
usually limit this to a much lower value. An array may not be re-dimensioned. 

When a variable is dimensioned a reference to the same variable name will refer to 
the array. This is only allowed with certain types of statements (i.e., MAT). In 
other statements the error "Inconsistent usage" will occur. 

Any reference to an array beyond the allocated size will cause a subscript error. 

Arrays are created with a zero element in each dimension, unless OPTION BASE 1 is 
in effect. For instance, if the array X were dimensioned X(5), there would be six 
elements in the array with subscripts of 0, 1, 2, 3, 4, and 5. 



Examples: 

0010 DIM X(20),Y(2,5),A$(5,5) 



Explanation: 

Array X has 21 elements, array Y has 18 
elements, string array A$ has 36 elements. 



Incorrect Examples: 

0010 DIM X(2,2,2) 
0020 DIM Y(99999) 



Explanation: 

Can have only 2 dimensions. 
Maximum dimension is 32767. 
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9.12 ELSE Statement 

1 ELSE [<stateiiient>] 

2 ELSE [<state]nent>] 

See also: IF, IFEND and THEN statements 



Purpose: 

The ELSE statement specifies the action to be taken when a multiline IF statement 
relation is not true. 

Cooment: 

The ELSE statement is only valid as part of a multi-line IF statement. 

<statement> may be any valid statement or statements, including another IF 
statement. It should not, however, be an IFEND statement. 



Examples: 

0010 IF A 

0020 THEN GOSUB 2000 

0030 PRINT USING "//##", A 

0040 GOTO TOP. OF. PAGE 

0050 IFEND 



Explanation: 

Test A for non zero 

Perform if AoO 
II II II 

II II II 
End of conditional execution 



0030 
0040 
0050 



0060 
0070 



Test expression 
Perform if expr is true 
Perform if both expr are true 



0010 IF VALUE > CONTROL 
0020 THEN IF VALUE > LIMIT 
THEN GOSUB ERROR 

GOTO EXIT " " " " " " 

ELSE IF ERR.NUM < ERR. LIMIT THEN QUIT 

Perform only if first expr is true 
and second expr is false 
IFEND End conditional execution from second expr 

IFEND End of conditional execution 



Incorrect Example: 

0010 IF C0NTR0L<LIMIT THEN WAIT 
0020 ELSE PRINT "ERROR" 



Explanation: 



Not in multi-line IF statement 
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9.13 END Statement 



Purpose: 

The END statement terminates execution of the program. 

Conmient: 

The END statement, unlike the STOP statement, not only terminates execution of the 
program but also closes all open I/O channels and, if the RUN command is being used 
(not BASIC), exits from the BASIC environment; otherwise control returns to the 
command mode. 

The END statement should be the last statement in a program. Although this is not 
required by OASIS BASIC it is required by ANSI and is a good programming practice 
because it can serve as an indicator that you intended it to be the end of the 
program. 

You cannot CONTINUE after an END statement has been executed. 
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9*14 mKMD Statement 

1 INEND 

See also: DEF statement 

Purpose: 

The FNEND statement marks the end of a multi-statement user defined function. 
Conment: 

The FNEND statement may only be used, and must be used, in a multi-line user 
definied function. 

There may only be one FNEND statement for each multi-line function. 

The statement between and including the DEF and FNEND statements are not executed 
unless referenced from a statement in the body of the program. 



Example: 

0010 DEF FNTEST(A) 
0020 FNTEST=PI*A*A 
0030 FNEND 



Explanation: 

Start of function definition 

End of function definition 



0040 DEF FNCENTER$( STRING $, LENGTH) Start of function definition 

0050 IF LENGTH=0 THEN FNCENTER$="" GOTO 110 

0060 IF LEN( STRING $)=0 THEN FNCENTER$ = SPACE $ (LENGTH) GOTO 110 

0070 FILL = LENGTH-LEN( STRING $) 

0080 IF MOD(FILL,2)=0 

0090 THEN FNCENTER$ = SPACE$ (FILL/2) &STRING$&SPACE$ (FILL/2) 

0100 ELSE FNCENTER$ = SPACE$ (FILL/2) &STRING$&SPACE$ (FILL/2+1) 

0110 IFEND 

0120 FNEND End of function definition 
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9.15 FOR Statement 



1 FOR <inim lndex>=<start> TO <lliiLlt> 

2 FOR <num lndex>-=<start> TO <ll]iilt> STEP <lncrement> 

3 FOR <l]idex>«<e:q>Tesslon ll8t> 

Where: 

<num index> ::= <simple numeric variable> 
<start> ::= <numeric expression> 
<limit> ::= <numeric expression> 
<increment> ::= <numeric expression> 
<index> ::= <simple variable> 
<expression list> ::= <num expr llst> 

<string expr list> 
<nuiii expr llst> ::= <numeric expr> [ , <nuiii expr list>] 
<string expr list> ::= <string expr >[,<st ring expr list>] 

See also: NEXT statement 



Purpose: 

The FOR statement define a program loop and execute that loop until a terminating 
condition is met. 

Comment: 

The FOR statement assigns an initial value, <start>, to the index and saves the 
limiting value <limit>. 

The STEP increment (format 2), is saved for use by the corresponding NEXT 
statement. If the STEP value is not specified (format 1), a value of +1 is used. 

The following paragraphs pertain to formats 1 and 2 of the FOR statement: 

Upon initial execution of the FOR statement, the index variable is assigned its 
initial value. The index variable is then compared to the limiting value and, if 
the index has not surpassed the limit, execution is passed to the statement 
following the FOR statement. When the index has surpassed the limit, execution is 
passed to the statement following the matching NEXT statement. If there is no 
matching NEXT statement an error occurs: "FOR without NEXT". 

The STEP value, when specified, may be a negative value. When the STEP is 
positive, the limiting value must be greater than or equal to the initial value. 
When the STEP is negative the limiting value must be less than or equal to the 
initial value. 

The value of the index variable surpasses the limiting value when it is more 
positive (for a positive STEP value) or more negative (for a negative STEP value). 
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A FOR NEXT loop is defined by the FOR and NEXT statements, with each statement 
marking the beginning and end of the loop. 

FOR NEXT loops may be nested to any depth. 

If a FOR NEXT loop is nested, it must be completely contained within the next 
higher FOR NEXT loop. An error will occur if the system detects an illegal form of 
nesting. A common practice to determine if your FOR NEXT loops are legal is to 
draw lines between the matching FOR and NEXT statements (see examples). If a line 
crosses another then it is an illegal form of nesting. 

The FOR NEXT loop may be exited with a GOTO statement. When this is done, the FOR 
NEXT loop will remain open until another FOR NEXT loop is executed using the same 
index variable or when this loop is re-entered. 

Upon termination of a FOR NEXT loop the index variable will retain the first value 
that exceeded the limiting value. For instance, the first example below will have 
the value +11 upon termination. 

Format 3 of the FOR statement allows the loop to operate on a "set" of values with 
the set being defined by the expression list. In this form the expressions must 
match in type (numeric or string) with the index variable. 

In this format the index variable is initialized to the value of the first 
expression. There is no limit testing as there is no limit defined. Rather, the 
FOR NEXT loop is performed until the list of expressions is exhausted, with each 
execution of the matching NEXT statement causing the next expression to be 
evaluated and assigned to the index variable. 



Examp les : 

10 FOR 1=1 TO 10 



Explanation: 

Loop will execute 10 times. 



50 NEXT I 

10 FOR I%=C+3 TO R*2 STEP .2 



50 NEXT 1% 
60 . . . 



Initial value is 3 plus the 

current value of C. Limiting 

value is current value of 

R times 2. If limit is less than 

initial value the loop is not excuted 

and control will pass to line 60. 

If variables C or R are changed within 

the loop, initial value and limiting 

value will not be affected as they are 

evaluated only once. 
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10 FOR 1% . . . 
20 FOR J% . . . 



This illustrates a correct form 
of nesting. 



50 NEXT J% 

60 FOR J% . . . 



I — 100 NEXT J% 

I 

150 NEXT 1% 

10 FOR INDEX$="A","B","ABCD"&SPACE$(2) Loop will execute 3 times. 

I 
I 
40 NEXT INDEX$ Variable must match FOR index variable, 

if used. 

10 FOR I%= 1,2,3,6,8,22,99 Will execute 7 times. 

I — 20 FOR A$="A","B",X$ Will execute 3 times for each of the 

I I seven major loops. 

I — 40 NEXT Terminate current loop 

50 NEXT Terminate current loop (major) 

Incorrect examples: Explanation: 

10 FOR 1 TO 50 STEP 2 Index variable missing. 

20 FOR X = 1 STEP -3 Limiting expression is missing. 

30 FOR J = 5 TO 1 STEP 2 Loop will fail initial test. 

40 FOR K = 1 TO 4 STEP -5 Loop will fail initial test. 

10 FOR I . . . Illegal nesting. 

I 20 FOR J . . . 



50 NEXT I 
90 NEXT J 
10 FOR I . . . 



60 FOR I . . . 

I . 

90 NEXT I 

100 NEXT I 



Note that lines cross here. 



Illegal nesting. 



There is no open FOR loop 
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9.16 GET Stateient 



1 GET DEVICE <devlce niimber>, <Varlable li8t> 

2 GET MEmRY <address>9 <varlable li8t> 

3 GET FORT ^ort>.<varlable ll8t> 

Where: 

<device number> ::= <numeric expression> 
<address> ::= <numeric expression> 
<port> ::= <numeric expression> 

<variable list> ::= <numeric variable>[,<variable list>] 

<string variable> [ , <variable list>] 

See also: PUT and WAIT statements 



Purpose: 

The GET statement allows you to accept a single byte or list of bytes from an I/O 
device such as an analog to digital converter. The GET statement is also useful 
for accepting keyboard input, if available, and without any prompting or waiting 
for the operator. 

CoBment: 

<device number>, <address>, or <port> is a numeric expression which is rounded up 
and integerized. <Device number > must be in the range of 9 through 32. This 
number is the address of a logical device (CONIN, CONOUT, PRINTERl, etc.). <Port> 
must be in the range: 0-255. This number is the address of the I/O port. 

<address> must be in the range: -32767 - +32767. This value, unlike other 
integers, is evaluated as an unsigned integer which adjusts its range to - 65565. 
It is best to use hexadecimal values for <address> as they are easily interpreted 
as unsigned integer values. 

The data accepted from the port, device, or memory is mapped in a one to one 
relation with the variable list. If the variable is numeric it receives an eight 
bit integer. If the variable is a string, only one character is assigned to it. 
When more than one variable is specified each variable is evaluated independently 
of the others. When GET MEMORY is used with multiple variables the memory address 
is incremented by 1 for each byte accepted. 

BASIC does not test to see if the I/O device is ready before accepting the input. 
When the device is not ready the data "accepted" will be null or zero. 

The GET statement along with the PUT and WAIT statements discussed in their 
respective sections, provides a means of communicating with any device in the 
system. These statements would normally be used to access devices that are not 
supported by the operating system although there is no restriction in this regards. 
In fact, these statements may be used to destroy the system, so please. . .don't . 
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The GET DEVICE statement accepts a byte or bytes of data from the logical device 
driver specified. A table of the logical device driver numbers is included in the 
OASIS System Reference Manual * If your system is not interrupt driven you should 
not use this statement. If the device has no information ready a null or zero byte 
is returned. 

The GET MEMORY statement reads the random access memory in the system. This 
statement could be used to read data stored by your own user written device driver. 
Because of the interpretation of the <address> as an unsigned value it is easiest 
to use hexadecimal values (see section on "Integer Constants" at the beginning of 
this manual and the section on "Numeric Functions"). 

The GET PORT statement accepts a byte or bytes of information from a physical port. 
All devices have port numbers, usually determined by the hardware interface 
electronics. If you have a reason to use this statement you would already know the 
port number of the device that you wished to access. If the port has no 
information ready a null or zero value is returned. 

The GET DEVICE statement is useful on system with an interrupt driven console. 
Sometimes you need to accept a reply from the operator that he wasn't expecting to 
be asked (error message response). In this situation it would be desirable to make 
sure that the "type ahead buffer" was cleared before asking for the operator 
response. See example line 50 for a method of doing this. 



Examples: 

0010 GET MEMORY 0800H,A$,B$ 

0020 GET DEVICE 32,A,B,C,D 

0030 GET DEV 9,A$ 

0050 GET DEV 9,A%IF A% THEN 50 



Explanation: 

Two bytes of data from memory address 

0800 and 0801 hex are assigned to A$ and 

B$, respectively. 

Four bytes of data from device #32 are 

assigned to the numeric variables A,B,C, 

and D respectively. 

Gets one character from the console and 

assignes it to A$. 

This line will get information stored in 

the console input buffer until that 

buffer is empty (null returned). 
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9.17 GOSUB Stateiaent 

1 GOSUB <llne re£erence> 

2 GO SUB <line re£erence> 

Where: 

<line refereTice> ::= <line number> 

<liTje label> 

See also: ON and RETURN statements 



Purpose: 

The GOSUB statement transfers control to the specified line. 
Conment: 

The GOSUB statement eliminates the need to repeat frequently used groups of code in 
a program. Such a group of statements is a subroutine. The subroutine must 
logically end with a RETURN statement. 

The subroutine may contain GOSUB statements, even a GOSUB to itself. This is 
called a recursive subroutine. There is no limit on the number of unre turned 
subroutines in progress. 

When a GOSUB statement (or an ON-GOSUB statement) is executed, BASIC saves the 
location of the statement that physically follows. Upon execution of the RETURN 
statement, control transfers to the statement whose location was saved. 



Example: 

0010 GOSUB 100 \ A = A+1 

0100 PRINT A 



Explanation: 

Subroutine starting at line 100 will be 
executed. Upon return from the subroutine th 
the variable A will be incremented. 



0150 RETURN 



1000 GOSUB INPUT 



Control will be transfered to the statement 

following the 'GOSUB' that called this 

subroutine. 

The subroutine starting with the label INPUT 

will be executed with execution resuming 

with the line following 1000 when the 

subroutine's RETURN statement is executed. 
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Incorrect example: 



Explanation: 



0010 GOSUB 100 \ A = A+1 
0020 LET X = SQR(Y(4/7)) 



0100 PRINT A 
0110 GOTO 20 



Should not exit from a subroutine except 
with a 'RETURN' statement. 
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9.18 GOTO Statement 

1 GOTO <Line ref erence> 

2 GO TO <llne re£erence> 

Where: 

<line ref erence> : : = <line number> 

<line label> 

See also ON and ON ERROR statements 



Purpose: 

The GOTO statement transfers control, unconditionally, to a specified line. 

Comneiit: 

GOTO must be followed by a line reference of a line that exists. This line 
reference may be of a line of a non-executable statement. If so, control will pass 
to the first executable statement following the referenced line. When the line 
referenced does not exist, an error will occur. 

A GOTO statement should not be used to jump into the middle of a FOR-NEXT loop 
because a "NEXT without FOR" error will occur. If it is necessary to branch into a 
FOR-NEXT loop to save coding, a switch should be used that will bypass the NEXT 
statement. 

Similarly, a GOTO should not be used to jump into the middle of a subroutine, 
WHILE-WEND and SELECT-CASE-CEND structures. 

The GOTO statement can be entered as the two words GO TO. 



Examp les : Exp lanat ion : 

0010 GOTO 1020 Control is unconditionally transferred 

to line 1020. 
0020 GOTO BEGIN Control is unconditionallly transferred 

to the line with the label BEGIN. 



Incorrect examples: Explanation: 

0020 GOTO 20 Infinite loop - this is not detectable 

by BASIC. 
0030 IF I > 4 THEN I = I-l \ PRINT I \ GOTO 30 Valid single line loop. 
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9.19 IF StateiKnt 

1 IF <ejq>re8sloii> THEN <theii claii8e> ELSE <el8e claii8e> 

2 IF <ezpresslon> THEN <t:hen claiise> 

3 IF <ei^resslon> 

Where: 

<expression> ::= <arithmetic expression> 
<logical express ion> 
<relational expression> 
<then clause> ::= <statenient> 

<line number> 
<empty statement> 
<else clause> ::= <statement> 

<line number> 
<line ref erence> : : = <line number> 

<line label> 

See also: ELSE and THEN statements 



Purpose: 

The IF statement provides for the conditional execution of a statement or 
statements or the conditional branching to a different section of code. 

Comment: 

<statement> may be any valid BASIC statement. 

In the IF statement, formats 1 and 2, the <expression> is first tested. If the 
result is non-zero, then the THEN clause receives control. Since <statement> may 
be multiple statements separated by backslants, control will be retained by these 
statements until the end of line or a matching ELSE is encountered. When this 
occurs, control will pass to the line following the IF statement. 

If the result is zero, a search is made for a matching ELSE; when found, control 
will pass to the statement or line number following the ELSE term. When no 
matching ELSE is found, control will pass to the line following the IF statement. 

Any ELSE term encountered by BASIC is assumed to match to the most previous, 
unmatched THEN clause. Tabs and indentation are not considered by BASIC in 
determining matching THEN ELSE clauses, they are only for use as a programming aid 
in the intended structure of the code. 

Format 3 of the IF statement provides for complex, multi-line IF statements, where 
the other lines contain THEN and/or ELSE statements. This multi-line structure is 
terminated by the IFEND statement. 

In any format, the IF statement may be nested up to 127 levels. 
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Examples: 



Explanation: 



0010 IF A=l THEN PRINT "A = 1 



0020 IF A=l THEN PRINT 'OK' ELSE 30 



0030 IF INP THEN GOSUB 1000 



0050 IF VALUE>0 THEN PRINT "POSITIVE" 



0060 


IF 


"A"="A " THEN 70 


1010 


IF 


A 


1020 




THEN GOSUB 2000 


1030 




PRINT USING "#////", A 


1040 




GOTO TOP. OF. PAGE 


1050 




IFEND 


1210 


IF 


VALUE > CONTROL 


1220 




THEN IF VALUE > LIMIT 


1230 




THEN GOSUB ERROR 


1240 




GOTO EXIT 


1250 




ELSE IF ERR.NUM 


1260 




IFEND 


1270 




IFEND 



When variable A is equal to 1, 
the literal 'A = 1' is printed; 
otherwise control passes to the 
line following. 

When variable A is equal to 1, 
the literal 'OK' is printed; 
otherwise line 30 is executed. 
When the value of the function 
INP is greater than zero, the 
subroutine at line 1000 is 
executed; otherwise control is 
passed to the line following. 
ELSE PRINT "NEGATIVE" 
When the variable VALUE is positive, 
the literal 'POSITIVE' will be 
printed; otherwise the literal 
'NEGATIVE' is printed. 
Unequal length strings being 
compared. Will test false. 
Test A for non zero 
Perform if AoO 



II 



II 



11 II II 

End of conditional execution 

Test expression 
Perform if expr is true 

Perform if both expr are true 
II II II II II II 

ERR. LIMIT THEN QUIT Single line IF 
Perform only if first expr is true 
and second expr is false 

End conditional execution from second expr 
End of conditional execution 



Incorrect examples: 

0010 IF D THEN X = A+D GOTO 100 

0020 IF Q=50 ELSE X=10 \ PRINT Y 
0030 IF I>1 THEN 200 \ I = I+l 



Explanation: 

Statement separator (\) missing 

between A+D and 'GOTO'. 

The 'THEN' clause is missing. 

Statement I = I+l will never 

be executed. Error undetected by 

BASIC. 
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9*20 IFEHD Statement 

1 IFEHD 

See also: ELSE, IF, and THEN statements 

Purpose: 

The IFEND statement marks the end of a multi-line IF-THEN-ELSE structure. 

Comnent s 

The IFEND should not be part of a THEN or ELSE statement. 

The IFEND statement can only be used in conjunction with a multi-line IF statement. 

The IFEND statement closes off the corresponding IF statement, marking the end of 
the conditionally executed statements of the THEN and ELSE statements. 



Examples: 

0010 IF A 

0020 THEN GOSUB 2000 

0030 PRINT USING "#//#", A 

0040 GOTO TOP. OF. PAGE 

0050 IFEND 



Explanation: 

Test A for non zero 
Perform if AoO 



II 



It 



II II II 
End of conditional execution 



0010 IF VALUE > CONTROL Test expression 

0020 THEN IF VALUE > LIMIT Perform if expr is true 

0030 THEN GOSUB ERROR Perform if both expr are true 

0040 GOTO EXIT " " " " " " 

0050 ELSE IF ERR.NUM < ERR. LIMIT THEN QUIT 

Perform only if first expr is true 
and second expr is false 
0060 IFEND End conditional execution from second expr 

0070 IFEND End of conditional execution 
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9.21 INFUT Statement 



1 IHFUT <varlable llst> 

2 IHFUT <pr(»pt>,<Variable ll8t> 

3 IHFUT #<cha]inel>: <vardLable llst> 

4 IHFUT #<chaimel>,<ke7>: <vardLable llst> 

Where: 

<channel> ::= <numeric express ion> 
<prompt> ::= <string literal expression> 

<variable list> ::= <numeric variable>[,<variable list>] 

<string variable>[,<variable list>] 
<key> ::= <string expression> 
<numeric express ion> 

See also: CLOSE, LINPUT, MAT INPUT, MAT READ, OPEN, OPTION, READ, 
and READNEXT statements 



Purpose: 

The INPUT statement allows data to be entered through the console, device, or disk 
file during program execution. 

Conment: 

The various formats of the INPUT statement provide different capabilities with one 
function in common: input fields are always ASCII characters even when the input 
field is numeric. 

Format 1 of the INPUT statement accepts one or more fields of data from the console 
terminal device- 

Format 2 of the INPUT statement accepts one or more fields of data from the console 
terminal device after displaying the prompting message. 

Format 3 of the INPUT statement accepts one or more fields of data from a 
sequentially accessed device or disk file. 

Format 4 of the INPUT statement accepts one or more fields of data from a device or 
disk file with either direct or indexed access. 

Format 3 and 4 of the INPUT statement may only be used when the I/O channel has 
been opened with INPUT or UPDATE access, not OUTPUT. 

The <prompt>, when used, must be a string literal expression. That is, the string 
expression must start with a string literal. When the <prompt> is used the system 
will evaluate the expression and display the result at the current cursor location 
followed by the prompt character (s) (see OPTION statement). When the <prompt> is 
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not used, (format 1), the prompt character (s) will be displayed at the current 
cursor position. 

The <variable list> is the list of variables that the input is to be assigned to. 
This list may be as long as the line allows and may contain a mixture of variable 
types (numeric, integer, string, array). Each variable must be separated by a 
comma from the preceding variable- 

When more than one variable is to be entered, each element of data entered must be 
separated by a comma from the previous element. 

When fewer data fields are entered than requested by the list of a format 1 or 2 
INPUT, an "Insufficient data" message will be displayed and all data must be 
re-entered from the beginning of the list. When fewer data fields are entered than 
requested by the list of a format 3 or 4 INPUT, an "Insufficient data" error occurs 
(trappable) and execution stops if no ON ERROR is defined. 

Input is terminated with a <CR> or end of record indicator. 

When using format 1 or 2 and the first character of the first field is a control 
character (ASCII value less than 32), the input will be terminated immediately and 
the value of the control character will be saved in the INP function. Refer to the 
INP function and the User Definable Keys for more information in this situation. 

When the input characters are not enclosed in quotation marks, leading and trailing 
spaces will be ignored, and embedded commas will be treated as field separators. 

The error "Invalid numeric, re-enter" will occur when the input variable is numeric 
and the operator (or file) inputs a non-numeric entry. For formats 1 and 2 the 
system will redisplay the prompt character and accept input again. (Format 3 and 4 
will stop execution if no ON ERROR is defined.) 

The Line Cancel-key and the backspace key may be used to make corrections to the 
data being input from the console with INPUT formats 1 and 2. 

When the BASIC program was executed from an EXEC program and data was placed in the 
EXEC Stack, these statements, along with other BASIC statements that accept 
information from the system console, retrieves the next element from that EXEC 
Stack. When the EXEC Stack is empty the data must come from the console. 
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Examples: 



0010 INPUT N 



Explanation: 



A question mark, space is displayed on 

the terminal, the program supends execution 

until the operator types a return or 

enters a control character only. 

The prompt NAME? is displayed and three 

fields are accepted, one string and two 

numeric. 

OPEN #1: "CONSOLE", INPUT SEQUENTIAL 

INPUT #1: A$,B,C Again, three fields are accepted from 

the operator, one string and two numeric- 
No prompt will be displayed and no control 
characters are allowed. 

OPEN #2: "DATE. FILE", UPDATE DIRECT 

INPUT #2,13:RECORD$ The 13th record in the file is read 

into the variable RECORD $. 



0020 INPUT "NAME",CUST.NAME$,A,B 



0030 
0040 



0050 
0060 



Incorrect examples: 



Explanation: 



0020 INPUT A,B,2.3,D Only variables may be INPUT. 

0030 INPUT At least one variable must be specified. 

0040 INPUT "FLD1",F1,"FLD2",F2 Only one prompt is allowed. 

0050 OPEN #1: "DATA. FILE", INPUT DIRECT 

0060 INPUT #1, "ABODE": A$,B$ Must use numeric key for direct access. 

0070 OPEN #2: "DATA. FILE2", OUTPUT INDEXED 

0080 INPUT #2, "ABODE": A$,B$ Access must be INPUT, not OUTPUT. 



9.22 LET Statement 



1 [LET] <nuinerlc varlable> « <n.uBierlc ezpressloii> 

2 pUET] <:striiig varlable> = <striiig e:iq>ressloii> 

3 [LET] <strliig varlable><substriiig> »= <striiig e2pressloii> 

4 [LET] <useT defined £iinctlon> = <ezpresslon> 

5 [LET] ERR «^ <nuinerlc ezpresslon> 
Where: 

<substring> ::= [<numeric expression>:<numeric expression>] 



Purpose: 
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The LET statement assigns a value to a variable. 

Comoient:: 

This is the only statement where the statement verb (LET) is not required for 
proper syntax. 

For all of the forms of the LET statement the expression is evaluated and assigned 
to the element on the left of the first equal sign (may be more than one equal sign 
because of relational expressions). The previous contents of the element are lost 
but only after the expression has been evaluated. Therefore, the variable may be 
an element in the expression. 

Formats 1 and 2 of the LET statement are the standard forms of the assignment 
statement used by all BASIC implementations. The type of the expression (string or 
arithmetic) must match the type of the variable on the left side of the assignment 
operator. 

The third format of the LET statement provides a powerful method of modifying 
string variables by means of the substring operator. The general form of this 
substring is: 

<strlng varlable>[<froiii>:<to>] 

Replacenent When <from> is less than or equal to <to> a character replacement 
is performed on the variable from column <from> to column <to>. The 
string expression on the right side of the assignment operator will be 
padded with spaces or truncated to a length of <to> minus <from> plus one. 

Deletion When <f rom> is greater than <to> a character deletion is performed 
on the string variable. The contents of the variable on the left side of 
the assignment operator is first modified by deleting the characters from, 
but not including, column <to> through column <from>. The string 
expression on the right side of the assignment operator is then inserted 
into the variable after the <to> column. 

Insertion When the <from> is zero the string expression on the right side of 
the assignment operator is inserted after the <to> character position. 

These rules and operations are best explained by example: 

Assume that A$ contains ABCDEFGHIJ 

A$[4:6] = "123" ABC123GHIJ 

A$[6:4] = "" ABCDGHIJ 

A$[6:4] = "01234" ABCD01234GHIJ 

A$[0:6] = "0123" ABCDEF0123GHIJ 

A$[0:0] = "0123456" 0123456ABCDEFGHIJ 

Format 4 of the LET statement is the user defined function assignment statement and 
may only be used within a multi-line user defined function and the function name 
used on the left side of the assignment operator must be the same as the DEF 
statement of the user defined function that the LET is a part of. For an example 
see the DEF and FNEND statements. 

Format 5 of the LET statement provides the capability of testing error handling 
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routines during the development phase of a program. This format of the LET allows 
you to assign a value to the ERR function (error number). When this statement is 
executed the system will act exactly like it would act if an error occurred. The 
type of error is determined by the value of the numeric expression on the right 
side of the assignment operator. 

It is advised that this format of the LET statement, when used, should be used in a 
multi-line statement on the same line as the statement that might cause the same 
error. For example, use ERR=30 on the same line as an OPEN statement. This is 
advised because there is no method of setting the ERL function to have a different 
value than the value of the line number that the LET statement is on. 
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Examp les : Exp lanat ion : 

0005 LET A = 1.23 The constant 1.23 is assigned to the 

variable A. 

0010 A = 1.23 Same as previous example. 

0020 LET A = A+1 The current value of the variable A is 

incremented by 1. 

0030 LET A$ = "ABCDEF" The string variable A$ is assigned the 

ASCII string 'ABCDEF'. 

0040 LET A$ = A$&"GHIJ" The string variable A$ is concatenated 

with the string 'GHIJ' and afterwards 
will contain 'ABCDEFGHIJ'. 

0050 ERR = 30 OPEN #1: F$, INPUT SEQUENTIAL Your error handling routine is 

invoked, if an ON ERROR statement has 
been used. When the routine is entered 
ERR = 30 and ERL = 50. 



Incorrect Examples: Explanation: 

0010 LET A$ = B+2 Cannot mix string and numeric expressions. 

0020 LET B-A = C Must have a single variable on the left 

of the assignment operator. 
0030 LET +1 = A Cannot assign a value to a constant. 
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9.23 LINK Statement 

1 LINK <program iLaBie> 

2 LINK <program iia]Be>y<llne iiiiinber> 

Where: 

<prograiii name> ::= <file name>[.<file type>] [:<file disk>] 
<file type> ::= BASICOBJ (with BASIC) 
BASICCOM (with RUN) 

See also: CHAIN, CLEAR, LINK and RUN statements 



Purpose: 

The primary use of the LINK statement is to link together the segments of a BASIC 
program. 

Conment: 

The LINK statement terminates the execution of the program in which it is 
encountered, loads the program indicated, and continues execution at <line number> 
or at the beginning of the program segment. 

The LINK statement does not close any files, however, all variables that have not 
been defined as COMMON variables will be cleared from memory. 

The <line number> operand, when used, should be a valid line number in the program 
specified. The <line number> operand should not be used for two reasons: it is 
difficuolt to maintain a set of programs when it is used and, most importantly, 
this feature will not be supported in future versions of OASIS BASIC. The 
recommended method of transferring control to another program at a specific line is 
to use a control variable (defined as COMMON) that is tested by an ON-GOTO 
statement at the start of the program transferred to. 

<Program name> is a string expression. If <pro gram-name > cannot be found in the 
directory, a non-trappable error will occur. 

Note: When the RUN version of BASIC is being used (execution of compiled programs 
only) only programs that have been compiled and have a file type of BASICCOM will 
be searched for by this command. 

<line number > may reference a line that does not exist in the referenced program, 
in which case execution will resume with the first line whose number is greater 
than or equal to the specified line. 

The CHAIN, RUN, and LINK statements all perform similar tasks, but with significant 
differences: 
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Program Linkage Statements 



Statement | I/O Channels | Variables | COMMON 



RUN I Closed | Cleared 
CHAIN I Closed | Cleared 
LINK I Not closed | Cleared 



I Cleared 

I Not cleared 

I Not cleared 



Examp les : 

0010 LINK "SEGMOl" 

0020 LINK NAME$(INDEX%) 

0030 LINK "SEGMO"&NUM(I)&":S" 



Explanation: 

Program named 'SEGMOl' will be loaded 
and execution resumes at the first line. 
The program indicated by the contents 
of the string array variable NAME$, 
subscript INDEX will be loaded and 
execution will resume at the first line. 
When I equals 1, this statement 
is the same as example 10. When I equals 
3 program 'SEGM03' will be executed, etc 



Incorrect example: 
0010 LINK "SEGMENT-1" 



Explanation: 

Program name can only be 8 characters 
long. Also, - is invalid. 
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9.24 LIHFDT Stateaent 



1 LIHFDT <8trl]ig varlable> 

2 LIHFDT <pr(»pt>, <8tri]ig varlable> 

3 LIHFDT #<chaiiiiel>: <&tring vaTlable> 

4 LIHFDT #<chaimel>,<ke7>: <&trliig variable> 

Where: 

<channel> ::= <numeric expression> 
<prompt> ::= <string literal expression> 
<key> ::= <nunieric expression> 
<string express ion> 

See also: INPUT, LINPUT USING, MAT INPUT, MAT READ, READ, and READNEXT state 



Purpose: 

The LINPUT statement allows entry of an entire line of data as a single character 
string, including spaces and punctuation. 

Conment: 

The LINPUT statement operates identically to the INPUT statement with one 
exception: only one variable may be specified for input and the variable must be a 
string variable. 



Examples: Explanation: 

0010 LINPUT A$ Prompt character (s) is displayed at the 

current cursor position, program execution 

is suspended until the operator terminates 

the input. 
0020 LINPUT "NAME",A$ The literal "NAME? " is displayed, execution 

is suspended until the operator terminates 

input . 
0030 OPEN #1: "CONSOLE", INPUT SEQUENTIAL 
0040 LINPUT #1: STRING$ Similar to line 10 but no prompt nor 

INP capabilities. 
0050 OPEN #2: "DATA. FILE", INPUT DIRECT 
0060 LINPUT #1,5: RECORD $ Record number 5 of file is read into 

variable RECORD $ 
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Incorrect Examples: Explanation: 

0020 LINPUT Al Must be a string variable. 

0030 LINPUT A$,B$,C$ Only one variable is allowed. 
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9.25 LINPUT USING Statement 



1 LINFUT USING Cstring literal ezpre8sloii>» <strliig varlable> 

2 LINFUT <proiiipt>,USING <stri]ig literal ezpressloii>, <^trliis varlable> 

3 LINFUT USING <8triiig e^resslon>,<8trlng varlable> 

4 LINFUT <pronpt>,USING cstrlng ezpresslon>» <^trliig varlable> 

Where: 

<prompt> ::= <string expression> 



See also: INPUT, LINPUT, MAT INPUT, MAT READ, READ, and 
READNEXT statements 



Purpose: 

The LINPUT USING statement allows entry of an entire line of data from the console 
as a single character string, including spaces and punctuation, with length control 
and the ability to "modify" an existing field. 

Comnent: 

The LINPUT USING statement, similar to the LINPUT statement discussed previously, 
allows entry of an entire line of text, including any embedded quotes and commas, 
as one string field. Similarly, the LINPUT USING allows a prompting message to be 
displayed before accepting input. 

However, unlike the LINPUT statement, the LINPUT USING statement provides greater 
control of the terminal display by limiting the number of characters input. The 
most significant feature of the LINPUT USING statement is that the operator can 
make corrections to the line being entered without re-entering the entire line. 

Formats 1 and 2 of the LINPUT USING statement use a <string literal expression> as 
the using mask. A <string literal expression> is a string expression that starts 
with a string literal. For example: ""&SPACE$(10) is a string literal expression 
of length 10. 

With either of these formats the statement will display the prompting message if 
specified. The input area is the area from the starting position for a length 
specified by the length of the string literal expression. 

If the first character of the string literal expression is an exclamation mark (I), 
BASIC will perform an auto carriage return when the input area if filled. This is 
generally used on single character input lengths. 

Formats 3 and 4 of the LINPUT USING statement use a <string express ion> as the 
using mask. With either of these formats the statement will display the prompting 
message if specified, then display the string expression in the input area. The 
input area is the area from the starting position for a length specified by the 
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length of the string expression. Additionally, these formats of the LINPUT USING 
statement will copy the string expression into the input variable before accepting 
input. 

At this point all four formats of the LINPUT USING statement act the same with the 
difference being that formats 3 and 4 have pre-filled the input area with the using 
mask and formats 1 and 2 have a null string in the input area. The operator may 
enter any ASCII character into the input area. A carriage return will cause the 
contents of the variable to be saved and execution of the program resumes. 

Certain keys are available to the operator to make editing changes: 

<carriage return> Terminates entry. 

<right arrow> Is a non-destructive advance. \'Ihen this key is entered (or its 
equivalent: CTRL/F) the cursor will be advanced over the next character. 

<left arrow> Is a non-destructive back space. When this key is entered (or its 
equivalent: CTRL/H) the cursor will be backed over the current character. 

<rub out> Is a destructive back space. When this key is entered the cursor is 
backed up one position and that character is replaced with a space. 

<CTRL/D> Is a destructive delete. When this key is entered the current character 
is deleted and the remaining characters in the input area are shifted one 
character to the left. 

<CTRL/I> Is a "destructive" insert. When this key is entered (or its equivalent: 
<tab>) the remaining characters in the input area are shifted one 
character to the right and a space character is inserted at the current 
position. If a character shifting to the right would exceed the input 
area length it will be deleted. 



Any 



other character entered by the operator will replace the current character. 



Unfortunately, this statement is difficult to illustrate with a printed example. 
Therefore, the following program is provided for you to execute so that you may see 
its uses. Keep in mind that what you see on the terminal in the input area is what 
is actually in the field being entered. 

Any control character (ASCII value less than 32) will terminate the entry and will 
set the INP function to that value. This implies that the control characters 4, 6, 
8, 9, 13 cannot be used as user defined control keys from a LINPUT USING statement. 
This does not apply to the INPUT or LINPUT statements. 



BASIC - 139 > LIHFDT USIHG 



BASIC REFESEHCE MANUAL 



0010 OPTION PROMPT "", CASE "M" 

0020 PRINT CRT$ ("CLEAR") 

0030 PRINT "The following is a simple illustration of the LINPUT USING" 

0040 PRINT "statement in both of its primary forms. The first input request" 

0050 PRINT "will use the statement with a string literal expression of" 

0060 PRINT "length 30. The second input request will use the statement with" 

0070 PRINT "a string expression of length 30. The contents of the string" 

0080 PRINT "expression will be the field entered by the first input request," 

0090 PRINT "padded to the proper length." 

0100 OPTION CASE "M" PRINT AT$(1, 10) ;CRT$("E0S") ; 

0110 PRINT AT$(l,10);"Input 1: [";SPACE$(30) ;"]";AT$(11,10) ; 

0120 LINPUT USING ""&SPACE$(30) ,FIELD$ 

0130 PRINT AT$(l,12);"Input 2: [";SPACE$(30) ;"]";AT$(11, 12) ; 

0140 LINPUT USING RPAD $ (FIELD $,30), FIELD $ 

0150 PRINT AT$ (1,14); "The field you entered contains:" 

0160 PRINT " |";FIELD$;"|"; 

0170 OPTION CASE "U" 

0180 LINPUT ""&AT$(l,16)&"0kay to repeat (Y/N)? N"&CRT$("L"), USING "i",ANSWER$ 

0190 IF ANSWER$="y" THEN 100 ELSE END 



LINFUT USISG - 140 - BASIC 



CHAFFER 9: STAXEMENTS 



9.26 MAT Statenent 

1 MAT <axxa7 iiaBie> "= <array •aajDB> 

2 MAT <array iiaBe> = (<eiq>resslon>) 

See also: LET statement 



Purpose: 

The MAT statement allows you to either copy one array to another or to assign one 
value to all of the elements of an array. 

CoiBDient: 

Format 1 of the MAT statement copies one array to another. Both arrays must have 
the same dimensions or a "Subscript Range" error will occur. 

Forrmat 2 of the MAT statement sets all elements of the array to a specific value. 



Example: 

0010 DIM A$(5),B$(5),C(20) 

0020 FOR I%=0 TO 5 

0030 B$(I%) = STR(I%) 

0040 NEXT 

0050 MAT A$ = B$ 

0060 MAT B$ = ("") 

0070 MAT C = (1) 



Explanation: 

Define size of arrays A$, B$, and C 
Set array B$ to initial values 



Copies B$ into A$ (B$ unchanged) 

Sets all 6 elements in B$ to be empty. 

Sets all 21 elements of C to be 1. 



Incorrect Example: 

0010 DIM A$(5),B$(6),C$(5,2) 
0020 MAT A$ = (1) 
0030 MAT A$ = B$ 
0040 MAT B$ = C$ 



Explanation: 

Defines size of arrays A$, B$, and C$. 
Expression must match array in type. 
Arrays are of different size 
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9«27 MAT IBFDT Statement 



1 MAT INPUT carray iiane> 

2 MAT INPUT #<chaimel>: carray maa&> 

3 MAT INPUT #<chaimel>»<k^>: <array iiaBe> 

Where: 

<channel> ::= <numeric expression> 
<key> ::= <numeric expression> 
<string express ion> 

See also: COMMON, DIM, INPUT, LINPUT, LINPUT USING, MAT READ, and 
READ statements 

Purpose: 

The MAT INPUT statement allows an entire array to be input at one time. 

Coament: 

Format 1 of the MAT INPUT statement accepts input from the console, assigning each 
field input to the elements of the array specified. If fewer fields are entered 
than the remaining elements in the array will be set to zero or null, depending 
upon the type of the array. The zero subscript of the array will not be input to. 

Format 2 of the MAT INPUT statement is identical to format 1 except that the input 
comes from the file specified by the I/O channel. 

Format 3 of the MAT INPUT statement accepts ASCII input from a direct or indexed 
data file. A numeric key must be used if the I/O channel has been opened with 
access method DIRECT. A string key must be used if the I/O channel has been opened 
with access method INDEXED. If the wrong type of key is used an "Invalid Key" 
error will occur. 

Formats 2 and 3 may only be used if the I/O channel was opened with access method 
INPUT or UPDATE. If the channel was opened with access method OUTPUT a "Wrong 
Access" error will occur. 

It is important to note that only one record will be input. If there are fewer 
fields in the record than there are data elements in the array the remaining 
elements will be set to zero or null. Zero subscripts will never be input to. 
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Examples: Explanation: 

0010 OPTION BASE 1 

0020 DIM ARRAY (4) 

0030 MAT INPUT ARRAY Accept 4 fields from console 

0040 INPUT ARRAY (1), ARRAY (2), ARRAY (3), ARRAY (4) 

This statement is identical in function 
to line 30 
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9.28 MAT FRUIT Statement 



1 MAT PRINT <array nane llst> 

2 MAT PRINT #<chaiinel>: <arra7 naae llst> 

3 MAT PRINT #<cliaiiiiel>»<ke7>: <array name ll8t> 

Where: 

<array name list> ::= <array nanie><punct>[,<array name list>] 
<channel> ::= <numeric express ion> 
<key> ::= <numeric expression> 

<string expression> 
<punct> ::= <comma> 

<semicolon> 

See also: COMMON, DIM, MAT WRITE, PRINT, PRINT USING, and WRITE 
statements 



Purpose: 

The MAT PRINT statement allows an entire array or arrays to be output at one time. 

Coament: 

Format 1 of the MAT PRINT statement outputs the arrays to the console. 

Format 2 of the MAT PRINT statement outputs the arrays to the file designated by 
<channel> that was opened for SEQUENTIAL access method. 

Format 3 of the MAT PRINT statement outputs the arrays to the file designated by 
<channel> that was opend for DIRECT or INDEXED access method. A numeric key is 
required for DIRECT, a string key is required for INDEXED. Using the wrong type of 
key will result in a "Wrong Access" error. This format of the print statement 
outputs only one record containing all of the elements in the arrays that will fit 
with the files allocated record length. 

Formats 1 and 2 of the MAT PRINT statement may output multiple records. In these 
formats, the number of records output depends upon the number of dimensions of each 
array and the number or arrays specified in the list. Additionally, the 
punctuation character used may cause additional records to be output. 

A comma character af er an array name indicates that the array is to be output using 
print zones, similar to the PRINT statement- A simicolon character after an array 
name indicates that the array is to be output in a "packed" format, similar to the 
PRINT statement. When no punctuation is used the array will be output one element 
per record. 

When outputting two dimension arrays using format 1 or 2 of the MAT PRINT statement 
the second dimension varies fastest. A new record (line) will be started when the 
first dimension changes. 
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When multiple arrays are specified a new record will be started for each array. 
Again, this applies only to format 1 and 2 of the statement. 

The zero subscripts of an array are never output with this statement. 



Examp les : 

0010 DIM A(5),B(3,10) 

0020 FOR I 

0030 MAT PRINT A$; 

0040 PRINT A(1);A(2);A(3);A(4);A(5) 

0050 PRINT 

0060 MAT B = (I) 

0070 MAT PRINT B; 

12 3 4 5 
12 3 4 5 

1111111111 
1111111111 
1111111111 



Explanation: 

= 1 TO 5 A(I ) = I NEXT I 
Statement is Identical to line 30 
Initializes array B 



Output from line 30 
Output from line 40 

Elements B(l,l) - B(l,10) 
Elements B(2,l) - B(2,10) 
Elements B(3,l) -B(3,10) 
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9.29 NAT READ Statement 



1 MAT READ <arra7 iia]iie> 

2 MAT READ #<chaimel>: Carray nam&> 

3 MAT READ f<cha]mel>,<ke7>: <array iia]iie> 

Where: 

<channel> ::= <numeric expression> 
<key> ::= <numeric expression> 
<string express ion> 

See also: COMMON, DIM, INPUT, LINPUT, LINPUT USING, READ, and 
READNEXT statements 

Purpose: 

The MAT READ statement allows an entire array to be read at one time. 

Comment: 

Format 1 of the MAT READ statement accepts data from the DATA statements in the 
program. If there are fewer DATA elements remaining than there are elements in the 
array an "Out of Data" error occurs. 

Format 2 of the MAT READ statement accepts data from the file opened on the I/O 

channel specified. Only one record will be read. If there are fewer data elements 
in that record than there are elements in the array the remaining elements will be 
set to zero or null, depending upon their type. 

The data file used by the second format of the MAT READ statement must have been 
opened with access method SEQUENTIAL. 

Format 3 of the MAT READ statement accepts input from a direct or indexed data 
file. A numeric key must be used if the I/O channel has been opened with access 
method DIRECT. A string key must be used if the I/O channel has been opened with 
access method INDEXED. If the wrong type of key is used an "Invalid Key" error 
will occur. 

Formats 2 and 3 may only be used if the I/O channel was opened with access method 
INPUT or UPDATE. If the channel was opened with access method OUTPUT a "Wrong 
Access" error will occur. 

It is important to note that only one record will be input. If there are fewer 
fields in the record than there are data elements in the array another record will 
not be read automatically — the remaining array elements will be set to zero or 
null, depending upon the array type. 

Additionally, the zero subscript will not be read into. 
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Examp les : Exp lana t ion : 

0010 OPTION BASE 1 

0020 DIM ARRAY (4), A$ (2, 5) 

0030 MAT READ ARRAY Accept 4 fields from DATA statement 

0040 READ ARRAY (1), ARRAY (2), ARRAY (3), ARRAY (4) 

This statement is identical in function 

to line 30 
0050 DATA 1.23,45, 123456788, 12335345645E^23 
0060 OPEN #1: "DATA. FILE", INPUT DIRECT 
0070 MAT READ #1,1: A$ Ten elements will be read from the 

first record in DATA. FILE 

0080 READ #1,1: A$(l, 1) ,A$(1, 2),A$(1, 3) ,A$(1, 4) ,A$(1, 5) ,A$ (2, 1) , 

A$(2,2),A$(2,3),A$(2,4),A$(2,5) This statement is identical to line 70. 
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9.30 MAT WRITE Stateaent 

1 MAT WRITE #<chaimel>: Carray iiam&> 

2 MAT WRITE #<chaimel>»<ke7>: <arra7 iiaBe> 

Where: 

<channel> ::= <numeric express ion> 
<key> ::= <numeric expression> 
<string expression> 

See also: COMMON, DIM, MAT PRINT, PRINT, PRINT USING, and WRITE 
statements 

Purpose: 

The MAT WRITE statement allows an entire array to be output at one time. 

Comment: 

Format 1 of the MAT WRITE statement outputs data to the file opened on the I/O 
channel specified. Only one record will be output. 

The data file used by this format of the MAT WRITE statement must have been opened 
with access method SEQUENTIAL. 

Format 2 of the MAT WRITE statement outputs data to a direct or indexed data file. 
A numeric key must be used if the I/O channel has been opened with access method 
DIRECT. A string key must be used if the I/O channel has been opened with access 
method INDEXED. If the wrong type of key is used an "Invalid Key" error will 
occur. 

Formats 1 and 2 may only be used if the I/O channel was opened with access method 
OUTPUT or UPDATE. If the channel was opened with access method INPUT a "Wrong 
Access" error will occur. 

It is important to note that only one record will be written. If there is 
insufficient space allocated for the record it will be truncated. 

The zero subscript of the array will never be written. 
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Examples: Explanation: 

0010 OPTION BASE 1 

0015 OPEN //I: "TEST. FILE: A", OUTPUT SEQUENTIAL, EXTEND 

0020 DIM ARRAY(4),A$(2,5) 

0030 MAT WRITE //I: ARRAY Outputs 4 fields to the file on channel 1 

0040 WRITE #1: ARRAY ( 1) , ARRAY (2) , ARRAY (3) .ARRAY (4) 

This statement is identical in function 

to line 30 
0060 OPEN #2: "DATA. FILE", INPUT DIRECT 
0070 MAT WRITE #2,1: A$ Ten elements will be written to the 

first record in DATA. FILE 

0080 WRITE //2,1: A$(l, 1),A$(1,2) ,A$ (1, 3) ,A$(1,4) ,A$(1,5) ,A$ (2, 1) , 

A$(2,2),A$(2,3),A$(2,4),A$(2,5) This statement is identical to line 70. 
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9.31 MOUNT Statement 

1 MOUNT <8trlng ezp> 

See also: CLOSE statement 



Purpose: 

The MOUNT statement allows the operator to change a disk without returning to the 
operating system. 

Comment: 

The MOUNT statement may only be used to change a privately owned disk. (In single 
user OASIS all disks are privately owned.) 

When OASIS is in BASIC, or any program, a record is kept of the disk labels and in 
which drive these disks are loaded. By doing this the operating system is 
protecting the user from inadvertantly changing disks without the express 
permission of the program being given. In BASIC this permission is given by the 
MOUNT statement. 

The MOUNT statement instructs the operating system that the program is prepared for 
a change of disk. No messages are displayed by the operating system at this time: 
any prompting messages to the operator must be handled by the BASIC program. 

The string expression specifies which drive is to be mounted (A, B, C, etc.). 

When BASIC executes the MOUNT statement a check is made to insure that there are no 
open files on the specified disk. If there are any open files the statement is not 
executed and an error message is displayed: 'File Error at Line nnnn'. 

After the MOUNT statement has been executed the disk may be changed (with the 
exception of the system disk). 



Example: Explanation: 

0010 MOUNT "A" System checks for any open files on disk A, 

If no files are open then pointers are set 
to indicate that the disk may be changed. 
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9-32 NEXT Statement 

1 NEXT <varlable> 

2 NEXT 

See also: FOR statement 



Purpose: 

The NEXT statement marks the outer limit of control of a FOR statement and causes 
the loop to be repeated if the limit has not been reached. 

Conanent: 

The variable, if specified, must be the same variable in use as an index variable 
for a currently open FOR loop. When the variable is not specified the current FOR 
index variable is used. 

When the NEXT statement is executed control of the program returns to the FOR 
statement indicated, at which time the index variable will get its next value, the 
value will be tested against the limit, and the program will continue depending 
upon the result of the test. 

An attempt to execute a NEXT statement when no FOR loop is open (or the variable 
specified does not match any FOR loop that is open) will cause an error to occur: 
"NEXT without FOR". 

Caution: Format 2 of the NEXT statement should not be used if it is possible that 
another, unfinished FOR-NEXT loop might be in existence — control will be 
transferred to that other unfinished loop. This situation is difficult to debug 
when it occurs . 
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Examples: 

0010 FOR I%=1 TO 5 

0020 PRINT 1% 
0030 NEXT 1% 

0060 FOR I%=1 TO 5 STEP 1 
0070 PRINT 1% 
0080 NEXT 

0100 FOR I$="A","B","C" 
0110 PRINT 1$ 
0120 FOR I%=1 TO 5 
0130 PRINT 1% 

0140 NEXT 1% 

0150 NEXT 



Explanation: 

Repeats following instructions five times. 
This marks the end and causes repeat 
Same as above. 

Performs loop 3 times. 

Performs this loop 5 times 
for each of the 3 major loops. 
Marks end and repeat of sub-loop. 
Marks end and repeat of major loop. 
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9.33 ON ERROR Stateaent 

1 ON ERROR GOTO <lliie ref erence> 

2 ON ERROR GOTO 

Where: 

<line reference> ::= <line number> 

<line label> 

See also: RESUME statement 



Purpose: 

The ON ERROR statement allows you to specify the error subroutine to be used for 
trappable errors. 

Connnent: 

Normally BASIC detects an error while executing a program and either terminates 
execution or prints a warning message. However, if you plan ahead, you can prepare 
alternatives which can save you time in the event of an error (and avoids confusion 
on the part of the operator). You can build an error handling routine that is 
activated when, and if, BASIC finds an error. This routine takes control away from 
the normal system errors and gives it to your error handling routine. 

The ON ERROR statement instructs BASIC that a user error handling routine exists at 
a certain line or that the currently defined error handling routine is to be 
disabled. 

Format 1 indicates that the specified line is to receive control; format 2 
indicates that BASIC is to handle all errors. 

When an error occurs before the execution of a format 1 ON ERROR statement or after 
the execution of a format 2 ON ERROR statement, BASIC proceeds with normal system 
error handling. 

When format 1 of the ON ERROR statement is executed and a trappable error occurs, 
control will be transferred to the line specified. That line should be the start 
of your error handling routine. 

An error handling routine can make decisions about how to handle the error by 
interpreting the error functions ERR and ERL which return the number of the error 
and the line number that the error occurred on. 

Note: when an error handling routine is being executed errors will not be trapped. 

Note: an error handling routine will always be disabled by RUN, CHAIN, or 
LINK — each segment must redefine the error handling routine. 

An error handling routine may be tested by using one of the formats of the LET 
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statement to invoke the error routine. 

The ON ERROR statement may be used within an error handling routine. 

Example: Explanation: 

0010 ON ERROR GOTO ERROR. ROUTINE Trappable errors will be handled by user. 

9010 ERROR. ROUTINE: 

9020 SELECT ERR Using error functin, select error routine. 

9030 CASE 1 Perform if ERR=1 (escape, C) 

9040 IF ERL<1000 OR ERL>1999 THEN RESUME Ignore if not of interest 

9050 GOSUB CLOSE. REPORT else do this. 

9060 RESUME MENU 

9070 CASE 20 Perform if ERR=20 (on range) 

9080 IF ERL=990 THEN RESUME 991 

9090 RESUME 

9100 CASE 30 Perform if ERR=30 (file not found) 

9110 PRINT AT$( 1,24); "Invalid file name";CHR$(7) ; 

9120 LINPUT " Type <return> to continue: ", USING "i",ANSWER$ 

9130 RESUME 

9140 CEND 

9150 RESUME 
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9.34 ON GOSDB and ON GOTO Stateaents 

1 ON <iium expr> GOTO <llne llst> 

2 ON <iiiim ezpr> GOSUB <Llne llst> 

Where: 

<line list> ::= <statement ref erence> [,<line list>] 
<statement reference> ::= <line number> 

<line label> 

See also: ON ERROR, GOTO, GOSUB and RETURN statements 



Purpose: 

These statements transfer control to a line selected from a list by the integer 
value of an expression. 

Comnent: 

The keywords GOTO and GOSUB may be entered as GO TO and GO SUB. 

The expression following ON is evaluated and the value is integerized. The integer 
is then used to select the first, second, third, etc., line reference. A trappable 
error occurs when the value of the integer is less than or equal to zero, or the 
value of the integer is greater than the number of line references. 

The subroutine given control by an ON GOSUB statement should be exited only with a 
RETURN statement. When the RETURN statement is executed, control returns to the 
statement following the ON GOSUB statement. This is further explained in the 
descriptions of the GOSUB and RETURN statements. 

The line references following GOTO or GOSUB must be separated by commas or spaces. 

There may be any number of line references in the list, (limit of 255 characters 
per line). 

Line references may be omitted" by using the comma separator as a place holder. 
When this is done and the value of the expression corresponds to that line 
reference place then control will be transferred to the statement following the ON 
statement. 

If the value of the <numeric expression> is less than one or greater than then 
number of line references in the <line list> an "ON range" error will occur. 
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Examples: 

0010 ON I GOTO 100,110,120,130 

0020 ON I+l GOTO 100,120 
0030 ON I GOSUB 100,200,300 

0040 ON INDEX+A GOTO LINE1,,LINE3 



Explanation: 

When 1=1 control passes to line 
100, 1=2 then line 110, 1=3 
then line 120, 1=4 then line 130. 
When 1=0 control passes to line 
100, 1=2 then line 120. 
When 1=1 the subroutine starting 
at line 100 is executed, 1=2 the 
subroutine at 200 is executed, etc. 
When INDEX=-3 control passes to LINEl; 
INDEX=-2 control passes to line 
following this; INDEX=-1 control 
passes to LINE3. All other values of 
INDEX will cause an error to occur. 



Incorrect example: 

0020 ON 1$ GOTO 100,200,300 



Explanation: 

Expression must be numeric 
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9.35 OFEH StateiHent 



1 OPEN #<chaiinel>: <£lle>»<access nodo <access iBet:hod>[y<optloiis>] 

2 OPEN #<clia]inel>: <devlce>,<access ■ode> caccess ■ethod>[y<optloiis>] 

3 OPEN #<chaimel>: <null>,<access ■ode> <access ■ethod> [ » <optlcms>] 

Where: 

<channel> ::= <numeric expression> 
<file> ::= <string expression> 
<device> ::= <string express±on> 
<access mode> ::= INPUT 
OUTPUT 
UPDATE 
<access method> ::= SEQUENTIAL 

DIRECT 
INDEXED 
<options> ::= <option>[,<options>] 
<option> ::= EXTEND 
QUOTE 
FORMAT 
LOCK 

RECSIZE <number> 
FILESIZE <number> 
KEYSIZE <number> 
<number> ::= <integer constant> 

See also: CLOSE and UNLOCK statements 



Purpose: 

The OPEN statement provides you with the initial means of accessing I/O devices 
other than the console. 

Comnent: 

<channel> must be a number with a value between 1 and 16. This number is the 
channel number that the file is assigned to. 

<file> represents the file description of the disk file to be opened. 

<device> represents the device name of the device to be opened. The table at the 
end of this section defines the allowable device names. The device name must be 
spelled out (no appreviations or synonyms). 

The <file> must include the file name (fn) and file type (ft), but the file disk 
(fd = A, B, S, etc., or the disk label) is optional. The proper separators must be 
used: a period before file type and a colon before the file disk. If the file disk 
is omitted the system will search the directories of the disks attached in the 
default search sequence. 
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When the <file> or <device> is a null string (format 3) the channel is opened for 
the device or file that was last opened on this same channel number. This feature, 
in conjunction with the ASSIGN command in OASIS, allows you to write BASIC programs 
that are device independant. For example I/O channel 16 might be used for report 
files. An ASSIGN command (see OASIS System Reference Manual ) might assign channel 
16 to PRINTERl. In the BASIC program channel 16 is opened to a null string. BASIC 
opens PRINTERl on channel 16. 

<access iiiode> represents an unquoted literal indicating the primary access mode or 
direction of the device or file: 

INPUT indicates that the file or device is to be used as an input source of an 
existing data base. No record locking will be performed on a file 
opened for INPUT. 

OUTPUT indicates that the file is to be used as an output storage base. No 
record locking will be performed. 

UPDATE indicates that the file is to be used as a general data base for both 
input and output. Input operations (input and reads) on this file will 
cause the specific record to be locked. This record will be released by 
a subsequent read or write to the file, an UNLOCK of the file, or by 
closing the file. 

<access mode> restricts how a file will be used: INPUT mode only allows the 
statements INPUT, LINPUT, MAT INPUT, MAT READ, READ, and READNEXT to be executed on 
the specified channel; OUTPUT mode only allows the statements MAT PRINT, MAT WRITE, 
PRINT, PRINT USING, and WRITE to be executed on the specified channel; UPDATE mode 
allows all file access statements to be executed on the specified channel. 

Caccess methodO specifies what access method is to be used: 

SEQUENTIAL indicates that records will be accessed in a sequential manner, one 
after the other. This applies to both input and output to the file. 

DIRECT indicates that records will be accessed in a random manner by relative 
number. 

INDEXED indicates that records will be accessed in a random manner by key. 

<access method> also refers to the file format. 

Note: a file opened for OUTPUT SEQUENTIAL will erase any existing file with the 
same description and create a new file. 

The specific access method specified in the OPEN statement affects the required 
syntax of the file access statements. For example, a file opened with access 
method INDEXED will require that all statements accessing that channel use a string 
key; similarly, access method DIRECT will require that all statements accessing 
that channel use a numeric key; access method SEQUENTIAL will require that all 
statements accessing that channel not use a key. 

The access mode in combination with the access method have other iiiq)lications and 
corresponding requirements: 

INPUT SEQUENTIAL implies that the file already exists. 
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OUTPUT SEQUENTIAL implies that the file is to be created by this program (unless 
option EXTEND is used). 

UPDATE SEQUENTIAL is the same as OUTPUT SEQUENTIAL. 

INPUT DIRECT implies that the direct format file already exists. 

INPUT INDEXED implies that the indexed, sequential format file already exists. 

OUTPUT INDEXED implies that the file, although it must exist, is to be "built" 
by this program. The records output to this file must be output in 
ascending key sequence. 

<optlon> specifies additional functions to be performed by the OPEN statement: 

EXTEND indicates that the sequential format file's disk allocation is to be 
extended. 

QUOTE indicates that string fields output with the PRINT statement, as part of 
a record, are to be surrounded with quotes if the string contains any 
embedded quotes or commas, or leading or trailing spaces. A comma will 
always be output between fields. 

FORMAT indicates that the SEQUENTIAL access method file is to use ANSI forms 
control characters supplied by each PRINT or PRINT USING statement. 

LOCK indicates that the entire file is to be locked from other users use 
until the file is closed by this program. 

An error occurs when a nonexistent file is opened for mode INPUT or access methods 
DIRECT or INDEXED. 

An error occurs when the channel number is still in use by another file. 

When a file is opened for SEQUENTIAL, the record pointer is set to the first 
record. This is the only statement that sets the record pointer to the beginning 
of a file opened for access method SEQUENTIAL. 

When a disk file is opened for OUTPUT SEQUENTIAL, the file is first erased, and 
then created. When a disk file is opened for OUTPUT SEQUENTIAL with option EXTEND, 
and the file exists, the output record pointer will be positioned to the end of the 
file where records will be added. 

A file with delete protection may not be opened for OUTPUT. If this occurs, the 
error message "Protected File" will be displayed. 
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Devlce/lfode Relationships 



1 access mode 


INPUT 


OUTPUT 


1 UPDATE 1 


1 device 


I 





1 I/O 1 


1 ==s==:s===s«==s 


s^s=^s:^:==:: 


=========s: 


=£======:= 1 


1 CONSOLE 


X 


X 


1 X 1 


1 PRINTER [n] 




X 




1 TAPE[n] 


X 


X 




1 COMM[n] 


X 


X 


1 X 1 


1 READER 


X 






1 PUNCH 




X 




1 DUMMY 


X 


X 


1 X i 



Disk File foraat/felbde. Method Relationships 



1 mode method 


sequential format 


direct format 


indexed format | 


1 INPUT SEQUENTIAL 


file must exist 






1 INPUT DIRECT 


N/A 


X 




1 INPUT INDEXED 


N/A 




X 1 


1 OUTPUT SEQUENTIAL 


file recreated 






1 OUTPUT DIRECT 


N/A 


X 




1 OUTPUT INDEXED 


N/A 




X I 


1 UPDATE SEQUENTIAL 


file recreated 






1 UPDATE DIRECT 


N/A 


X 




1 UPDATE INDEXED 


N/A 




X 1 



Examples: 



0010 OPEN #1: 
0020 OPEN #1: 
0030 OPEN #5: 
0040 OPEN #1: 
0050 OPEN #8: 
0060 OPEN #16: 
0070 OPEN #15; 
0080 OPEN #4: 



"MAST.DATA:A",INPUT SEQUENTIAL 
"", INPUT DIRECT 
"TEST. DATA: C", OUTPUT DIRECT 
"PRINTER" , OUTPUT SEQUENTIAL , FORMAT 
F$&":S", UPDATE INDEXED, LOCK 

"CONSOLE ".OUTPUT SEQUENTIAL 

"PRINTER", OUTPUT SEQUENTIAL 
"PRINTER. FILE : S " , OUTPUT SEQUENTIAL , EXTEND , FORMAT 



OPEN 
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9.36 OPTION Statement 



1 OPTION BASE <base value> 

2 OPTION CASE <case mode string ezpresslon> 

3 OPTION PROMPT <proiiq»t> 

4 OPTION DSR <usr-name> 

Where: 

<base value> ::= 
1 

<case mode string expression> ::= "M" 

"U" 
"L" 

<prompt> ::= <string expression> 

<usr-name> ::= <string expression> 

See also: USR function 



Purpose: 

The OPTION statement allows the programmer to specify the status of certain global 
options: array subscript base value, input casemode, and input prompt character (s) . 

Connent: 

The OPTION BASE statement must be in a position to be executed before any variables 
are dimensioned or defined. This also means that the subscript base cannot be 
changed after COMMON has been defined. Normally the OPTION BASE statement would be 
the first statement of the first segment of the program. 

When the OPTION BASE statement is not used the default base is 0. 

Since most programmers do not use the zero element of arrays the OPTION BASE 1 
allows for a saving in the memory space used for working storage. 

More than one option may be specified in an OPTION statement by separating the 
options with a comma. For example: 10 OPTION BASE 1, PROMPT CHR(0),CASE M 

The OPTION CASE and OPTION PROMPT statements may be used in any location of the 
program that a BASIC statement is allowed. The OPTION CASE statement specifies the 
casemode for characters entered from the console input device (CONIN) . When the 
casemode is not set by the programmer the default mode of upper is used. 

OPTION CASE "U" indicates that all alphabetic characters entered from 
CONIN are to be translated to their uppercase equivalent before display 
and before the character (s) are transferred to the BASIC program. 

OPTION CASE "M" indicates that all alphabetic characters entered from 
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CONIN are not to be translated. 

OPTION CASE "L" indicates that all alphabetic characters entered from 
CONIN are to be translated to their inverse casemode equivalent before 
display and before the character (s) are transferred to the BASIC program. 

When BASIC or RUN is first invoked the casemode of input is "U". In order to use 
mixed or lowercase characters for input to the BASIC program an OPTION CASE "M" or 
CASE "L" statement must be executed. This may be done in the Immediate mode. 

The OPTION PROMPT statement changes the prompt literal. The default prompt literal 
is the question mark followed by a space. By using this statement you can change 
the prompt to be any character, or sequence of characters, or you can change the 
prompt to be a null string not followed by a space. OPTION PROMPT "" and OPTION 
PROMPT CHR$(0) are equivalent and indicate that no prompt literal is to be used for 
INPUT and LINPUT statements to the console. 

Format 4 of the OPTION statement loads a USR assembly language subroutine into 
memory. Note: this is the only way that a USR program is loaded for use by the 
BASIC program. 

When the USR program referenced is already in memory no action will be taken by 
this statement. 



Examples : 

0010 OPTION BASE 1 

0020 OPTION CASE "M" 

0030 OPTION PROMPT CHR$(0) 

0040 OPTION PROMPT "Enter:", CASE "L' 



1000 CLEAR \ OPTION BASE 1 

1010 OPTION PROMPT "What? ",USR "XX" 



Explanation: 

Set index base for arrays to 1. 

Accept input with no translation 

No prompting character or space. 

The input prompting literal changed to 

the characters: Enter: followed by a 

space; the case mode of input set to invert. 

Array subscript base set to 1. 

Prompt literal changed to What? and the 

USR program named XX is loaded into memory. 



Incorrect examples: 

0020 OPTION BASE 10 
0030 A$="DATA" 
0040 OPTION BASE 1 



Explanation: 

Only base of or 1 allowed. 

May not be used while variables are defined. 



OFCIOH 
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9*37 OTHERWISE Statement 

1 OTHERWISE 

See also: CASE, CEND and SELECT statements 



Purpose: 

The OTHERWISE statement specified the action to be taken in a SELECT-CASE-CEND 
structure if none of the previous cases were true. 

Comment : 

The OTHERWISE statement functions similar to the CASE statement except that there 
is no expression specified — the OTHERWISE statement is always true. 

The OTHERWISE statement allows you to specify an action (sequence of statements) to 
be executed when none of the cases is true in a SELECT-CASE-CEND programming 
structure. 

There should only be one OTHERWISE statement in any particular SELECT structure 
(only one will be executed). 

The OTHERWISE statement should follow all CASE statements in a SELECT structure (no 
CASE statements will be evaluated after the OTHERWISE statement is encountered). 



Examples : 

3000 SELECT RAD*2.*PI 

3010 CASE 

3020 SELECT SUBVALUE% 

3030 CASE 20 

3040 

3050 CASE 32 

3060 



OTHERWISE 



3061 




3062 




3070 




3080 


CASE 1-14 


3090 


• 


3100 


• 


3110 


CASE J% 


3120 


• 


3130 


CEND 



CEND 



Explanation: 

Perform only if RAD*2.*PI=0 

Perform only if RAD*2.*PI=0 and SUBVALUE%=20 

Perform only if RAD*2.*PI=0 and SUBVALUE%=32 
= 32 

Perform if neither of the above cases 

is true 

End of nested SELECT structure 



Perform only if RAD*2.*PI=I-14 
It ti II II II 



Perform only if RAD*2.*PI=J% 
End of SELECT structure 
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9*38 PRINT Stateaent 



1 PRINT 

2 PRINT <6zpressloii llst><ponctiiatloii> 

3 PRINT #<cliaiinel> 

4 PRINT #<chaimel>,<ke7> 

5 PRINT #<chaiinel>:<ezpressloii llst><piincti]atlon> 

6 PRINT #<cliaiinel>,<ke7>:<expres8lon llst> 

Where: 

<expression list> ::= <expression>[<punct><expression list> 

TAB(<num expr>) [<punct><expression list> 
<punctuation> ::= <coinnia> 

<seini-colon> 
<channel> ::= <nuineric expression> 
<key> ::= <numeric expression> 
<string expression> 

See also: CLOSE, MAT PRINT, MAT WRITE, OPEN, PRINT USING, and 
WRITE statements 



Purpose: 

The PRINT statement allows text, numbers, results, etc, to be displayed on the 
console or output to a file. 

CoBBent: 

The various formats fo the PRINT statement provide different capabilities with one 
function in common: output is always ASCII, even when the output field is numeric 

Format 1 of the PRINT statement prints a carriage return on the console. 

Format 2 of the PRINT statement prints one or more fields of data on the console. 

Format 3 of the PRINT statement outputs a null or empty record on the sequentially 
accessed device or disk file. 

Format 4 of the PRINT statement outputs a null or empty record on the direct or 
indexed accessed disk file- 

Format 5 of the PRINT statement outputs one or more fields of data to the 
sequentially accessed device or disk file. 

Format 6 of the PRINT statement outputs one or more fields of data to the direct or 
indexed accessed disk file. 
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The PRINT statement, formats 3 through 6, may only be used on an I/O channel that 
was opened with access mode OUTPUT or UPDATE. An attempt to execute a PRINT 
statement on a channel opened for INPUT will cause the error "Wrong access" to 
occur. 

The expressions (formats 2, 5, and 6) will be output in the order that they are 
listed. 

Using the expression feature (e.g., 2*R'^3-B) can be very valuable in saving 
prograimning time, execution time, and memory usage. For instance: if the result of 
an expression is only calculated in order to be output, and there is no repetition 
of it's output, it is best to use the expression in the PRINT statement. In this 
case line 20 below is the more efficient way to code: 

10 LET A = 2*R'"3-B \ PRINT A 
20 PRINT 2*R"3-B 



Both statements will yield the same results. 

All numeric expressions (literals, fields, and expressions) will be printed with 
leading zero suppression, left justification, leading sign or space, and one 
trailing space. 

The term "print head", used bellow, refers to the cursor (terminals), the print 
mechanism (printers) or the record pointer (disk files), whichever is applicable. 

An output record is considered to be divided into print zones of twenty one spaces 
each. To use these zones for tabulation, the punctuation character is a comma. In 
the PRINT statement, an expression followed by a comma will cause the value of the 
expression to be printed at the current print position. After printing, the "print 
head" will be moved to the next available print zone (from 1 to 21 spaces away). 
If the last print zone on a line is filled, the "print head" will move to the first 
print zone of the next line. 

In the PRINT statement, an expression followed by a semicolon (;) will cause the 
value of the expression to be output at the current print position with no movement 
of the "print head" after printing. 

Any PRINT statement which ends with no punctuation causes the "print head" to move 
to the first column of the next line after output. 

Printing to an I/O channel (formats 3, 4, 5, and 6) may require the use of ANSI 
forms control characters, depending upon whether or not the option FORMAT was used 
in the open statement for that channel. The FORMAT option should only be used for 
terminal or printer files. When it is used it means that the PRINT statement will 
supply the forms control character as the first character of each record output. 
When it is not used it means that each record output is to start a new line on the 
output device. For a list of these forms control characters refer to the OASIS 
System Reference Manual , appendix on "ANSI Forms Control". These characters allow 
you to specify single, double, triple spacing, forms eject, or no line spacing 
(overprint) . 

If the option QUOTE was used on the open statement for the I/O channel used by a 
PRINT statement, the fields output to the device or file will be enclosed in a pair 
of quotation marks if the field contains any of the following: leading spaces, 
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trailing spaces, embedded comma, or embedded quotation mark. If it is unknown 
whether this will happen it is best to use the QUOTE option — no action is taken 
unless needed. Additionally, the QUOTE option causes multiple fields to be 
separated by commas in the output record. 

The QUOTE option causes punctuation in the expression list to be ignored (commas 
are used as stated above). 

If the QUOTE option is not used then leading and trailing spaces will be removed 
from the fields before output. Additionally, when a field is output that contains 
an embedded comma a subsequent INPUT of that record will treat the comma as a field 
separator, not as an embedded comma (LINPUT will not be concerned with this). 
Embedded quotes in a field might also cause a problem for the INPUT statement. 

In general, the output rules for the PRINT statement are: 

1. Suppression of leading and trailing zeros to the right of a decimal 
point. 

2. Where a number can be represented as an integer, printing of the 
decimal point is suppressed. 

3. At most, thirteen significant digits are printed. 

4. Most numbers are printed in decimal format. Numbers too large or too 
small to be printed in decimal format are printed in exponential 
format. 

5. Extra commas cause print zones to be skipped. (Unless option QUOTE 
is in effect.) 

6. A semicolon at the end of the list indicates that no carriage return, 
line feed is to be printed. 

7. Leading and trailing spaces in string expressions are removed (unless 
option QUOTE is in effect). 

8. Numeric fields are output with a leading sign (negative values) or 
space (positive values) and a trailing space (unless option QUOTE is 
in effect). 

The examples are followed by the printout caused by their execution. 
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Examples : 

0010 LET A = 1.23 \ B = 34.56 \ C = 345.678 

0020 LET A$ = "ABCDEFG" \ B$ = "HIJKLMN" \ C$ = A$+B$ 

0035 OPEN #1: "PRINTER", OUTPUT SEQUENTIAL, FORMAT 



0030 PRINT #1 

0040 PRINT #1 

0050 PRINT #1 

0060 PRINT #1 

0070 PRINT #1 

0080 PRINT #1 



" A =";A;"B =";B;"C =";C 

" A =";A;"B =";B;"C =";C 

" ";A+B+C,A*B,C*A,B/A,A/B 

" ";A$;B$;C$; 

" ";B$; 

" ";A$ 

0100 OPEN #2: "DATA. FILE: A", OUTPUT DIRECT, QUOTE 
0110 PRINT #2,5: A$,B$,C,D,E Fifth record is output to the file 



A = 1.23 B = 34.56 C = 345.678 
A = 1.23 B = 34.56 C = 345.678 

381.467999998 42.5087999999 425.183939999 28.0975609756 

355902777778E-02 
ABCDEFGHIJKLMNABCDEFGHIJKLMN HIJKLMNABCDEFG 



Incorrect examples: Explanation: 

0010 PRINT "ABCDEF Expression illegal. 

0020 PRINT A,B:C Invalid punctuation. 
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9.39 PRINT USING Statement 



1 PRINT USING •^Bask>»<expressi<m llst><pimcttiatloii> 

2 PRINT #<chaiinel>: USING <4iiask>»<ezpressloii list><pimctiiatlon> 

3 PRINT #<chaimel>,<key>: USING <iDask>,<ezpression llst><pimctuatloii> 

Where: 

<mask> ::= <string expression> 

<expression list> ::= <expression>[,<expression list> 
<punctuation> ::= <semi-colon> 
<channel> ::= <numeric expression> 
<key> ::= <numeric expression> 
<string expression> 

See also: MAT PRINT, MAT WRITE, PRINT, and WRITE statements 



Purpose: 

The PRINT USING statement allows text, numbers, results, etc., to be displayed on 
the console or output to a file. 

ComiDent: 

The PRINT USING statement operates similar to the PRINT statement except that: 
fields must be output, output is formatted. 

Format 1 of the PRINT USING statement outputs formatted data to the console 
terminal. 

Format 2 of the PRINT USING statement outputs formatted data to a device or disk 
file opened for SEQUENTIAL access. 

Format 3 of the PRINT USING statement outputs formatted data to a disk file opened 
for DIRECT or INDEXED access. 

The PRINT USING statement may only output to an I/O channel opened for OUTPUT or 
UPDATE access. An attempt to access a channel opened for INPUT will cause the 
error "Wrong access" to occur. 

The expressions will be displayed in the order that they are listed, in the format 
specified by the mask expression. For details on the mask specifications refer to 
the chapter on "Formatted Output" in this manual. Expressions can be string or 
numeric literals, variables, expressions, or functions, as long as they match in 
type to the formatting masks specification types. 

Option QUOTE of the OPEN statement has no effect on the PRINT USING output; 
however, option FORMAT has the same effect as it does for the PRINT statement. 
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In the PRINT USING statement, all expressions must be separated by commas. A 
semicolon is allowable as the terminating punctutation and, if used, operates the 
same way the semicolon punctuation character operates in the PRINT statement. 

A PRINT USING statement which ends with no punctuation causes the print head to 
move to the first column of the next line after printing. 

The examples are followed by the printout caused by their execution. 

For examples of the PRINT USING statement and its output capabilities refer to the 
chapter on "Formatted Output". 

The following program example, when entered and executed, will show some of the 
uses of the PRINT USING statement. 



0010 OPTION PROMPT "", BASE 1 

0020 DIM NUMBER (5), STRING $(5) 

0030 OPTION CASE "M" PRINT CRT$ ("CLEAR") 

0040 PRINT "PRINT USING example program" 

0050 LINPUT ""&AT$(l,4)&"Numeric mask: ",MASK$ 

0060 LINPUT ""&AT$(40,4)&"String mask: ",MASK1$ 

0070 PRINT 

0080 PRINT "Enter five numbers: ";TAB (40) ; "Enter five strings:" 

0090 FOR 1% = 1 TO 5 

0100 PRINT AT$(5,I%+7);I%; 

0110 INPUT NUMBER (1%) 

0120 NEXT 

0130 FOR 1% = 1 TO 5 

0140 PRINT AT$(45,I%+7);I%; 

0150 LINPUT STRING$(I%) 

0160 NEXT 

0170 MASK$ = MASK$&" "&MASK1$ 

0180 PRINT AT$( 1,14); "The formatted output of: "&MASK$ 

0190 PRINT AT$(1,16); 

0200 PRINT USING MASK$,NUMBER(1) ,STRING$(1) ,NUMBER(2) ,STRING$(2) ,NUMBER(3) ,STR 

ING$(3),NUMBER(4),STRING$(4),NUMBER(5),STRING$(5) 
0210 OPTION CASE "U" 

0220 LINPUT ""&AT$(l,23)&"Okay to repeat (Y/N)? ", USING "!",ANSWER$ 
0230 IF ANSWER$="Y" THEN 30 
0240 END 
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9.40 PUT Statement 

1 PUT DEVICE <devlce nu]iiber>,<expresslon llst> 

2 PUT MEMORY <address>,<eiq»resslon llst> 

3 POT PORT <port>,<expresslon llst> 

Where: 

<device number> ::= <numeric expression> 
<address> ::= <numeric expression> 
<port> ::= <numeric expression> 

<expression list> ::= <numeric expression>[,<exp list>] 

<string expression>[,<exp list>] 

See also: GET and WAIT statements 

Purpose: 

The PUT statement allows the user to output a single byte or a list of bytes to an 
I/O device such as an digital to analog (D/A) converter or some other device. 

Comient: 

<Port>, <device>, and <address> are numeric expressions which are rounded up and 
integerized. <port> must be in the range: - 255. This number is the address of 
the I/O port. <device> must be in the range of 9 - 32. This number is the logical 
device number (see OASIS System Reference Manual ). 

<address> must be in the range -32767 - 32767. This value, unlike other integer 
values, is interpreted as an unsigned value, which automatically adjusts the range 
to - 65535. It is best to use hexadecimal values for <address> as they are more 
easily interpreted as unsigned values. 

The expressions in the expression list are evaluated. If the expression is 
numeric, it must be in the range - 255. If the expression is a string, only the 
first byte is used. When more than one expression is specified each is evaluated 
independently of the others. When PUT MEMORY is used with multiple expressions the 
memory address is incremented by 1 for each byte transmitted. 

BASIC does not test to see if the I/O device is ready before transmitting the byte. 
This is the responsibility of the user (see WAIT statement). 

The PUT statement is identical to the GET statement except that data is output to 
the logical device driver (DEVICE) , port address (PORT) , or memory locations 
(MEMORY), instead of input. When the PUT PORT or PUT MEMORY statements are used 
you must be careful not to destroy the operating system. It is very easy to do. 
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Examples: 

0010 PUT DEVICE 10,65,66, "C" 

0020 PUT PORT 1,"A" 

0030 PUT MEMORY 3000H,0,0,0FFH 



Explanation: 

On the console output device (number 10) , 
the characters A, B, and C are output. 
The letter "A" is written to port 1. 
At memory locations 3000, 3001, and 3002 
hexadecimal, the values 0, 0, and 255 are 
placed, respectively. 
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9*41 QUIT Statement 



1 QOIT 

2 QUIT <striiig e^resslon> 

3 QUIT <iiimeric e^resslon> 

See also: END statement and QUIT command 



Purpose: 

The QUIT statement allows the user to exit from the BASIC environment. 

Connent: 

When the QUIT statement is encountered by BASIC all open I/O channels are closed. 

The QUIT statement always exits from BASIC. If BASIC (or RUN) was invoked by a 
keyboard command then control is returned to the Command String Interpreter 
environment. If BASIC (or RUN) was invoked by an EXECutive procedure then control 
is returned to the EXECutive procedure that called it. The EXEC resumes control 
with the statement that followed the BASIC command. In either case the return code 
is set to zero. 



To exit BASIC without returning control directly to the environment that 
invoked from one of the optional expressions is specified. 



it was 



A numeric expression indicates the value that the return code is to be set to. 
This return code may then be examined by the EXEC that invoked BASIC. If BASIC was 
not invoked by an EXEC then setting the return code will have no usable effect. 

A string expression indicates a CSI command to be executed. The expression must 
specify the command name and all arguments and options desired. After the command 
has completed execution the return code is set by that command. If BASIC was 
invoked by an EXECutive procedure and a string expression is specified with the 
QUIT statement control will return to the EXEC program after the CSI command has 
completed execution. 



When the first character of the string expression is 
command will be displayed on the console terminal. 



the character ">" the string 



Examples: 

0900 QUIT 

9998 QUIT 3 

9990 QUIT "LIST DAILY REGISTER" 



Explanation: 

Control exits BASIC 

Return code set to 3; BASIC is exited. 

BASIC is exited and LIST executed. 



QUIT 
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9-42 RANIKMIZE Statement 



1 RANDOMIZE 



Purpose: 

The RANDOMIZE statement causes the RND function to use a random starting value- 

Conment : 

The RANDOMIZE statement is used when a program that uses the RND function is to 
have a different set of random numbers each time the program is run. 

The RND function does not produce truly random numbers: it has a "table" of 
pseudorandom numbers available to it. Using the last random number generated, the 
RND function chooses another 'random' number. Every time that BASIC is loaded into 
memory it has the same starting pointer to the pseudorandom number "table". The 
RANDOMIZE statement causes this pointer to start at a different location each 
execution of the program. 

It is a good practice to debug a program completely before inserting the RANDOMIZE 
statement. 

The RANDOMIZE statement is normally used only once in a program, generally at the 
beginning of the logic. 



Examples: 

0010 RANDOM 

0020 PRINT INT (RND* 10.) 



Explanation: 

Choose a random starting point. 

Print a random number between and 10. 



Incorrect examples: 

0010 RANDOMISE 
0020 RANDOM (I) 



Explanation: 

Misspelled. 

No operands allowed. 
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9.43 READ Statement 



1 READ <variable llst> 

2 READ #<chaiinel>: <varlable list> 

3 READ #<chaimel>,^e7>: <varlable llst> 

Where: 

<variable list> ::= <variable>[,<variable llst>] 
<channel> ::= <numeric expression> 
<key> ::= <numeric expression> 
<string expression> 

See also: DATA, INPUT, LINPUT, MAT INPUT, MAT READ, OPEN, READNEXT, 
and RESTORE statements 



Purpose: 

The READ statement is used to: accept data from DATA statements (format 1); accept 
data from a sequentially formatted file (format 2); accept data from an indexed or 
direct formatted file (format 3). 

Conment: 

The READ statement, format 1, causes the variables listed to be assigned values 
from the next data elements of the DATA statement. If there is more than one DATA 
statement in the program then, when the first DATA statement's elements are used 
up, the next data element will come from the next DATA statement in the program. 
When there are no more DATA statements in the program, an "Out of data" error will 
occur when a READ is executed. 

When it becomes necessary to use the same data more than once in a program, the 
RESTORE statement makes it possible to recycle through the complete set of DATA 
statements in the program or a partial set. 

The other two formats of the READ statement operate similar to the INPUT statement 
discussed earlier. The primary difference between the READ statement and the INPUT 
statement (and LINPUT) is that the INPUT accepts ASCII data only (i.e., quoted 
strings and characters) and the READ statement accepts fields of data in internal 
BASIC format. 

Formats 2 and 3 of the READ statement accept data from a file that was created with 
its complementary WRITE statement. 

The READ statement can only access an I/O channel that was opened with access mode 
INPUT or UPDATE, not OUTPUT. 

Format 2 of the READ statement accesses a file opened with SEQUENTIAL access 
method. 
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Format 3 of the READ statement accesses a file opened with DIRECT or INDEXED access 
method. A numeric key is used for a file opened with DIRECT access and a string 
key is used for a file opened with INDEXED access. 

After a format 2 or 3 READ is performed the EOF function will indicate whether or 
not the read was successful. The EOF function will return a true value on a 
SEQUENTIAL access READ if the end of file was encountered; on an INDEXED access 
READ if the record with the specified key could not be found; on a DIRECT access 
READ if the record read was deleted or never written to. 

On a DIRECT access READ the trappable error "Invalid key" will occur when an 
attempt is made to access a negative or zero record number or a record number 
greater than the maximum number of records in the file. 



Examples: Explanation: 

0010 READ A The value 1.23 is assigned to A. 

0040 READ B,C The value 2.34 is assigned to B, 

the value 3.45 is assigned to C. 

• 

0050 RESTORE 9010 Next data element will come from 

line number 9010. 
0100 READ A$ The literal '1.23' is assigned to A$ 



0130 RESTORE 8000 Next data element will come from 

line number 9010. 

8000 . . . 

9010 DATA 1.23, 2.34, 3. 45, LITERAL, 2ND LITERAL 

9020 DATA 2.234, ABCDEF, ABODE FGHIJK," ABODE FGHIJK " 

0010 OPEN #1: "DATA. FILE", INPUT DIRECT 
0020 OPEN #2: "TEST. FILE", UPDATE SEQUENTIAL , EXTEND 
0030 OPEN #3: "FILE. DATA", INPUT INDEXED 

0040 READ #1,13: A$,B$,C,D$ The 13th record is read 

0050 READ #2: B$,C$,A The next record is read 

0060 READ #3,KEY$: FLD1$,FLD2$,T0TAL Record with key matching contents of 

KEY$ is read. 



Incorrect examples: Explanation: 

0010 READ A First data element is alpha - 

'Conversion Error' will occur. 

0040 READ B No data elements left. 

9000 DATA ABCD 
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9*44 READNEXT Statement 

1 READNEXT #<chaxmel>,<ke7>: <varlable llst> 

Where: 

<channel> ::= <numeric expression> 

<key> ::= <string expression> 

<variable list> ::= <variable>[,<variable list>] 

See also: INPUT, LINPUT, MAT INPUT, MAT READ, and READ statements 



Purpose: 

The READNEXT statement will access the next record following the previous READ, 
WRITE, or READNEXT from an indexed file. 

Comment: 

This statement is very similar to the READ statement, however this statement only 
operates on a file opened with access method INDEXED. The key must be a string 
variable, not an expression. 

When the READNEXT statement is executed the indexed disk file specified by the 
<channel> is read in a sequential manner. The record read by the READNEXT 
statement is the record whose key is the next key greater than the last record key 
accessed in this file. If there are no records whose key is greater than the last 
record accessed then the file pointer is considered to be at end-of-file and the 
EOF function may be used to detect this condition. 

If a record is read by the READNEXT statement then the contents of that record's 
key is placed into the variable <key> and the contents of the individual fields of 
that record are placed into the variables specified in the <variable list>. 

When an indexed file is first OPENed, the file pointer is positioned before the 
first record in the file. Therefore if the first access to an indexed file is a 
READNEXT statement then that statement will retrieve the first record in the file, 
if any exist. Each access of an indexed file by a READNEXT statement causes the 
file pointer to be advanced to the next record. Access to an indexed file by the 
READ statement causes the file pointer to be positioned to the record specified by 
that READ statement. (If the READ statement is unsuccessful the file pointer is 
positioned to the place that the record would have been at, if it had existed; 
therefore a READNEXT statement, following an unsuccessful READ statement, will 
retrieve the next record that logically follows the record searched for with the 
READ statement.) 

An attempt to use the READNEXT statement to access a record created with a PRINT 
statement will cause an "Invalid file format" error. The READ and READNEXT 
statement can only access records created with the WRITE statement. 
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Examples: Explanation: 

If a indexed file contains records with the following keys: 

000100 
000124 
001001 
003234 
003235 
004000 

then the following statements will print the string "003234" 

0100 READ #1,"002000":A$ Position after record 001001 

0110 READNEXT #1,KEY$:A$ Get record following, i.e. 003234 

0120 PRINT KEY$ 



Incorrect Examples: Explanation: 

0200 READNEXT //2,A:A$,B,C Key must be string variable. 

0210 READNEXT #2,"ABC":S Same. 

0220 READNEXT #5, K$, RECORD $, TOTAL Colon must separate key and list. 

0230 READNEXT #1,A2$ Input list missing. 
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9-45 REM Statement 

1 SEM 

2 SEtf <unquoted string literal. 

Purpose: 

The REM statement allows the insertion of a comment or remark into a program. 

Conment: 

REM statements are valid BASIC statements and may be used anywhere that a statement 
can be used. They are saved as part of the program and appear whenever the program 
is listed, however they are ignored when the program is executed. 

All characters after REM are ignored by the BASIC statement analyzer. For this 
reason, the REM statement must always be the last statement on a line. 

The REM statement should never be used on the same line as a DATA statement. This 
is explained in the section on the DATA statement. 



Examples: 



Explanation: 



0010 REMARK: THIS IS A REMARK 
0020 REM: THIS IS A REMARK 

0040 LET A = B \REM THIS IS A REMARK Recommended syntax for using a REM on the 

same line as a statement. 



Incorrect examples: 

0010 DATA 1,2,3,4,5, \REM ABCDEF 
0020 LET A=B REM This is a remark 



Explanation: 

The REM will be treated as a DATA element. 
Statement separator missing. 



REM 



- 178 - 



BASIC 



CHAPTER 9: STATEMENTS 



9.46 RESTORE Statement 

1 RESTORE 

2 RESTORE <llne nu]nber> 

See also: READ and DATA statements 

Purpose: 

The RESTORE statement is used to re-use data elements from the DATA statements. 

Comment: 

When it is neccessary to use the same data elements from the DATA statements more 
than once in a program the RESTORE statement makes it possible to recyle through 
the complete set or a partial set of the DATA statements. 



If the line number 
statement. 



option is used the referenced line need not be of a DATA 



When the RESTORE statement is executed the internal pointer used for accessing the 
data elements of a program is set to point to the beginning of the program (line 
reference option not used) or to the line referenced. In either case the next READ 
statement will read the first data element at, or following, the statement pointed 
to. 



Examples: 
0050 RESTORE 



0060 RESTORE 1 
0070 RESTORE 9000 



0080 RESTORE 9900 



Explanation: 

The next READ will read the first data 

element of the first DATA statement in the 

program. 

Same as line 50. 

The next READ will read the first data 

element of the first DATA statement at or 

following line 9000. 

The next READ will read the first data 

element of the first DATA statement at or 

following the line number 9900. 



BASIC 



- 179 - 



RESTORE 



BASIC REFERENCE MANUAL 
9*47 RESUME Statement 



1 RESUME 

2 RESUME 

3 RESUME <Llne re£erence> 

Where: 

<line reference> ::= <line number> 

<line label> 

See also: ON ERROR statement 



Purpose: 

The RESUME statement terminates an error handling routine and specifies what to do 
next. 

Comneiit: 

The RESUME statement acts like a RETURN statement except that it may only be used 
in an error handling routine. 

After an error handling routine has performed the tasks required for the specific 
error (see ON ERROR statement) the routine must return control to BASIC. The 
RESUME statement performs this task. 

At this time BASIC needs to know what was done and what to do. There are three 
possible situations that might exist: 1) the error was corrected by the error 
routine and the statement that caused the error is to be re-executed; 2) the error 
could not be corrected by the routine and the system is to handle the error; 3) the 
error was corrected by the routine but a different statement is to be executed. 

These three situations correspond to the three formats of the RESUME statement: 

RESUME with no line reference (format 1) indicates that BASIC is to 
ignore the error and to re-execute the statement causing the error. 

RESUME (format 2) indicates that BASIC is to handle the error. In this 
event BASIC will display the error message corresponding to the error 
along with the line number of the statement causing the error (ERL). If 
the program was executed from the RUN environment then BASIC will be 
exited; if the program was executed from the BASIC environment then the 
command mode of BASIC will be entered (prompt character of "-"). 

RESUME <line reference> (format 3) indicates that the error was corrected 
but control is to be transferred to the line specified. 
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Examples: 



Explanation: 



9000 IF ERR=2 THEN 9020 
9005 IF ERR=1 THEN 9030 
9010 RESUME 

9020 RESUME 



9030 RESUME EXIT 



Error cannot be handled - this lets 

BASIC handle it. 

Error was corrected (or ignored) and 

the program resumes execution at the 

statement causing the error. 

Error was corrected (or ignored) and 

control is to be transferred to the 

line with the label EXIT. 
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9.48 RETURN Statement 

1 RETURN 

2 RETURN <lliie re£erence> 

Where: 

<line reference> ::= <line number> 

<line label> 

See also GOSUB and ON GOSUB statements 



Purpose: 

The RETURN statements terminates the execution of a subroutine and transfers 
control back to the statement following the call (GOSUB) to the subroutine. 

Comment: 

There may be more than one RETURN statement in a subroutine, however, the first one 
executed causes the subroutine to terminate. It is a good programming practice to 
have only one RETURN statement in a subroutine and, if multiple exit points are 
needed, branch to that one statement from the various parts of the subroutine. 
This makes the routine easier to read and maintain. 

The RETURN statement cannot be executed without a previous execution of a GOSUB 
statement. When this is attempted a "Return stack empty" error occurs. 

When a line is referenced on the RETURN statement the referenced line must exist in 
the program (same as the GOTO statement). 

The RETURN statement with the optional line number reference used causes the 
location of the statement following the GOSUB call to be discarded and control 
transfers to the line referenced. 

It is bad practice to use the line reference option except in unusual or 
exceptional cases. A better, and approved method of performing a similar function, 
is to use the SELECT or WHILE statement structures. 
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Examples: 

0010 GOSUB 30 

0020 PRINT A$ GOTO 9000 

0030 REM Subroutine entry 



Explanation: 

Execute subroutine at line 30 
Statements executed after RETURN 
Beginning of subroutine 



0090 RETURN 
0100 GOSUB INPUT 



Exit subroutine 

Execute subroutine a label INPUT 



0500 INPUT: REM Input subroutine 



Beginning of subroutine 



0590 RETURN CLOSE. UP 



Exit subroutine and transfer control 
to CLOSE. UP label. 
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9.49 RON Statemnt 



1 RON 

2 RUN <prograa i&aae> 

3 RUN <startl]ig line> 

4 RUN <program iiane>» Cstarting line> 

Where: 

<prograin name> ::= <file name>[.<file type>] [:<file disk>] 
<file type> ::= BASICOBJ (with BASIC) 

BASICCOM (with RUN) 
<starting line> ::= <line number> 

See also: CHAIN, CLEAR and LINK statements 



Purpose: 

The RUN statement allows the user to execute a program already in memory or one 
stored on disk. 

CoBtmenl: : 

When <program name> is not specified, the program currently in memory is executed, 
starting with the first line of the program, or at the line number specified. 

Before the RUN statement is executed, a CLEAR command is automatically executed. 

<program name>, when specified, must be a string expression. When BASIC is being 
used (not the compiler RUN time command) only BASICOBJ files will be searched for. 
When RUN is being used (not the interactive interpreter) only BASICCOM files will 
be searched for. 

When the <program name> is specified, a search is made for the program. If the If 
the program is found, a NEW command is executed and the specified program is 
loaded. Execution begins with the smallest line number, or at <starting line>, if 
specified. 

<starting line> may be a line number that does not exist in the referenced program, 
in which case execution will begin at the first line greater than or equal to the 
specified line number. The <starting line> operand should not be used for two 
reasons: it is difficult to maintain a set of programs when it is used and, most 
importantly, this feature will not be supported in future versions of OASIS BASIC. 

Note: When the RUN version of BASIC is being used (execution of compiled programs 
only) only programs that have been compiled and have a file type of BASICCOM will 
be searched for by this command. 

The CHAIN, RUN, and LINK statements all perform similar tasks, but with significant 
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Program Linkage Stateaents 



Statement | I/O Channels | Variables | COMMON 



RUN I Closed | Cleared 
CHAIN I Closed | Cleared 
LINK I Not closed I Cleared 



I Cleared 

I Not cleared 

I Not cleared 



Examples: 

-LOAD TEST 
-RUN 



Explanation: 

Program "TEST" is loaded, 
then executed. 



-RUN TEST 



Same as above. 



1000 RUN 

1010 RUN "JOE" 



Re-execute program in memory. 
Execute program named "JOE". 



Incorrect examples 

10 RUN PROGRAM 

20 RUN "PROGRAM" LABEL 



Explanation 

Program name must be an expression. 
Line labels not allowed. 
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9.50 SELECT Stateaent 

1 SELECT 

2 SELECT <expression> 

See also: CASE, CEND and OTHERWISE statements 

Purpose: 

The SELECT statement defines the start of a SELECT-CASE-CEND programming structure. 

Comment: 

Format 1 of the SELECT statement specifies that subsequent, matching CASE 
statements will specify the complete relational expression that must evaluate true 
for the statements following to be executed. 

Format 2 of the SELECT statement specifies the expression that is to be compared 
with the expression of subsequent, matching CASE statements. 

SELECT structures may be nested to any depth. 

The SELECT-CASE-CEND programming structure is a powerful aid to the programmer 
wishing to write structured programs in BASIC, a language that doesn't lend itself 
to structured programming techniques. (Also see ON ERROR, FOR-NEXT, IF-IFEND, and 
WHILE-WEND structures.) 

Examples: Explanation: 

3000 SELECT RADIUS*2.*PI Define VALUE 

3010 CASE 

Perform only if VAI,UE=0 

Perform only if VALUE=0 and SUBVALUE%=20 

Perform only if VALUE=0 and SUBVALUE%>32 

Perform only if VALUE=0 and ERROR%<>0 
End of nested SELECT structure 

Perform only if VALUE=I-14 

Perform only if VALUE=J% 
End of SELECT structure 



3020 




SELECT 


3030 








CASE SUBVALUE%=20 


3040 








• 


3050 








CASE SUBVALUE%>32 


3060 








• 


3062 








CASE ERR0R% 


3064 










3070 








CEND 


3080 


CASE 


I- 


■14 




3090 




• 






3110 


CASE 


J 






3120 




• 






3130 


CEND 
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9.51 SLEEP Statement 



1 SLEEP <lnteger ezpresslon> 



Purpose: 

The SLEEP statement causes BASIC to pause for a period of time, allowing the 
operator time to read a message, etc. 

Conment: 

The value of <integer expression> is rounded up and integerized. The value of this 
expression must be between and 32767 (approximately 9 hours), inclusive. 

The minimum time that the SLEEP statement will pause is one second. Specifying any 
value less than one will be interpreted as the default, one second. 



Examples 



Explanation 



10 SLEEP 10 
95 SLEEP X/4 
200 SLEEP .5 



Suspend processing for 10 seconds 
Wait for one fourth of X value. 
Wait for one second. 
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9.52 STOP Statenent 

1 STOP 

2 STOP <ezpresslon> 

See also: END and QUIT statements 



Purpose: 

The STOP statement terminates execution of a program without closing any files nor 
altering working storage. 

ConBent: 

The STOP, END and QUIT statements all terminate execution of a program. The QUIT 
and END statements are the normal termination of a program in a non-development 
mode. 

The STOP statement is used when an abnormal exit from the program is desired, as 

needed during the development and debugging of a program. When it is executed, the 

status of the program remains unchanged, and the message "STOP at Line nnnn" is 

displayed on the terminal. BASIC will enter the command mode (prompt character of 
11 ii\ 
" ) • 

If a STOP statement was executed, a CONTINUE command will resume execution at the 
statement following the STOP statement. This allows the programmer to examine or 
alter portions of the program or to change the value of some variables. 

When an expression is specified after the STOP verb that expression will be 
evaluated and displayed with the stop message: "STOP <value of express ion> at line 
XXXX". This allows the programmer to put identifying messages on the screen to 
assist in the debugging. 



Examples: Explanation: 

0010 STOP Program stops execution and allows 

maintenance. 
0020 STOP A$ Program stops execution, as above and 

displays the current value of the 

string A$. 
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9.53 THEN Statement 

1 THEN [<stateiiient>] 

2 THEN [<llne innnber>] 

See also: ELSE and IF statements 



Purpose: 

The THEN statement specifies the action to be taken when a multiline IF statement 
relation is true. 

ComDent: 

The THEN statement is only a statement when used in conjunction with the multi-line 
format of the IF statement. When used in this manner the verb THEN is optional. 

<statement> may be any statement or statements, including another IF statement. 



Examples: 

0010 IF A 

0020 THEN GOSUB 2000 

0030 PRINT USING "###", A 

0040 GOTO TOP. OF. PAGE 

0050 IFEND 



Explanation: 



Test A for 


non zero 


Perform if 


AOO 


II 11 


If 


11 II 


ti 



End of conditional execution 



Test expression 
Perform if expr is true 
Perform if both expr are true 



0010 IF VALUE > CONTROL 

0020 THEN IF VALUE > LIMIT 

0030 THEN GOSUB ERROR 

0040 GOTO EXIT " " " " " " 

0050 ELSE IF ERR.NUM < ERR. LIMIT THEN QUIT 

Perform only if first expr is true 
and second expr is false 

0060 IFEND End conditional execution from second expr 

0070 IFEND End of conditional execution 



Incorrect Examples: 

0010 IF VALUE>5 THEN 100 
0020 THEN PRINT "XYZ" 



Explanation: 



Not in a multi-line IF statement 
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9.54 DHLOCK Statenent 

1 UNLOCK #<chaimel> 

Where: 

<channel> ::= <numeric expression> 

See also: CHAIN, CLOSE, DELETE, INPUT, LINPUT, MAT INPUT, 

MAT PRINT, MAT READ, MAT WRITE, OPEN, PRINT, PRINT 
USING, READ, READNEXT, and WRITE statements 



Purpose: 

The UNLOCK statement operates in multi-user OASIS only and allows a program to 
release a record for other users use. 

Comment: 

The UNLOCK statement is only effective when the channel was opened with UPDATE 
access, not INPUT or OUTPUT. 

The UNLOCK statement releases the record read from the channel with an INPUT, MAT 
INPUT, MAT READ, READ, or READNEXT statement. After the UNLOCK statement is 
executed another user partition may read the record just released. 

An unlock function is performed automatically when any of the following statements 
is executed: CLOSE, DELETE, INPUT, LINPUT, MAT INPUT, MAT PRINT, MAT READ, MAT 
WRITE, PRINT, PRINT USING, READ, READNEXT, and WRITE. Note that the input type 
statements may lock another record. 



Examples: Explanation: 

0010 OPEN #1: "DAT A. FILE", UPDATE SEQUENTIAL 

0020 READ #1: RECORD $ Read the first record and locks it. 

0030 UNLOCK #1 Releases the record for others use. 
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9.55 WAIT Statement 



1 WAIT 

2 WAIT DEVICE <device nii]Bber> 

3 WAIT MEMORY <address>»<and inask>[,<xor mask>] 

4 WAIT PORT <port>»<and iDask>[,<xor mask>] 

Where: 

<device number > ::= <numeric expression> 
<address> ::= <numeric expression> 
<port> ::= <numeric expression> 
<and mask> ::= <numeric expression> 
<xor mask> ::= <numeric express ion> 

See also: GET and PUT statements 



Purpose: 

The WAIT statement suspends execution until some event has occurred. 

Comnient: 

The most frequent use of this statement (format 1) is to suspend operation until 
the operator has typed any key on the console keyboard. This use is the same as 
the systems when it displays a page of information and then waits for the operator 
to release that page before displaying the next page. An up-arrow character O 
will be displayed in the bottom, left hand corner of the screen while the system is 
waiting for the operators response. This is a conditional wait determined by the 
status of the System Screen-wait key (see OASIS System Reference Manual ). 

This statement causes BASIC to test a byte from the specified device (format 2), 

memory address (format 3), or port (format 4), logically AND it with <and mask> and 

logically exclusive OR it with <xor mask>. The statement is re-executed if the 
result is not zero (true). 

The <port> expression must evaluate to an integer between and 255; the <device 
number> expression must evaluate to an integer between 9 and 32; the <address> 
expression must evaluate to an integer in the range -32767 - +32767. (This value, 
unlike other integers, is interpreted as an unsigned value, which automatically 
adjusts its range to - 65535.) 

If <xor mask> is omitted, it is assumed to be equal to zero. 

This statement can be very useful for waiting for an I/O device to become ready for 
output, or waiting for a character to be input from a device. 

The WAIT DEVICE has no masks available because it returns control to BASIC as soon 
as any change (non zero) occurs with the device. 
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The WAIT statement does not read the data from the port or device, only the status 
of the device or port is tested. This statement would normally be used to 
determine the time that an event happened in order to synchronize two processes. 



Examples: 

0010 WAIT DEVICE 9 



0020 WAIT PORT 25,0FH 



0030 WAIT 



Explanation: 

The program suspends execution until 
a key is entered from the console 
keyboard (device 9). When any key is 
typed the program will continue 
execution with the statement following. 
The program suspends execution until 
a byte is input on port 25 that has the 
four low-order bits off. 
Wait for operator to release current 
page of data on screen. 
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9.56 WEND Statemnt 

1 WEND 

See also: WHILE statement 

Purpose: 

The WEND statement marks the end of a WHILE-WEND programming structure. 

Ckrament: 

The WEND statement requires that a corresponding WHILE statement exists and that 
the WHILE statement must have been executed prior to the WEND statement. 

The WEND statement performs two functions: marks the end of a WHILE-WEND 
structure — the statement following the WEND statement is executed when the 
expression in the WHILE statement is false; causes the corresponding WHILE 
statement to be re-executed when the expression of that WHILE statement was true 
the last time. 

WHILE-WEND structures may be nested to any depth. 

Example: Explanation: 

0010 WHILE CONTROL% Test the variable CONTROL% 

0020 GOSUB 1000 Perform if CONTROL% is non-zero 

0030 GOSUB 1200 " " " 

0040 WHILE OPTION$="HELP" " " " 

0050 GOSUB HELP. ROUTINE Perform if CONTROL%<>0 AND OPTION $="HELP" 

0060 0PTI0N$="" " " " " " " 

0070 WEND 

0080 WEND Go back to 10 if C0NTR0L% was non-zero 
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9.57 WHILE Statement 



1 WHILE <nu]nerlc expresslon> 

2 WHILE <loglcal expresslon> 

3 WHILE <relatloiial ezpresslon> 

See also: WEND statement 



Purpose: 

The WHILE statement marks the beginning and qualifying condition of a WHILE-WEND 
programming structure. 

Comnent : 

The WHILE statement requires a corresponding WEND statement, which marks the end of 
the WHILE-WEND structure. 

When the WHILE statement is encountered the expression is evaluated. If the result 
of the expression is non-zero or true the statements following are executed. If 
the result of the expression is zero or false then the statements following, up to 
and including, the corresponding WEND statement are skipped. 

If the expression was true and the statements were executed, when BASIC encounters 
the corresponding WEND statement control will be transferred back to this WHILE 
statement for expression re-evaluation. Because of this looping feature, there 
should be some statement within the loop that could modify the results of the 
expression evaluation, or a statement that will transfer control out of the loop; 
otherwise the loop will be executed indefinitely. 

WHILE-WEND structures may be nested to any depth. 
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Examp le : 



0010 WHILE A%<10 



0020 


A% = A%+I% 


0030 


FOR I%=1 TO 5 


0040 


PRINT 1% 


0050 


NEXT 


0060 


WEND 



0070 PRINT A% 

0010 IF NOT (A%<10) THEN 
0020 A% = A%+I% 
0030 FOR I%=1 TO 5 
0040 PRINT 1% 

0050 NEXT 

0060 GOTO 10 
0070 PRINT A% 



70 



Explanation: 

Test the expression 
Perform only if true. 



If exp was true then go back to 10 
Otherwise perform this and continue. 

This is the same as above example. 
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9.58 iffilTE Statenent 



1 WRITE f<cliaiinel>: <e^resslon Ilst> 

2 WRITE f<cha]mel>y<key>: <ezpressl<m ll8t> 

Where: 

<channel> ::= <numeric expression> 

<expression list> ::= <expressioii>[,<expression list>] 
<key> ::= <numeric expression> 
<string expression> 

See also: DELETE, MAT PRINT, MAT WRITE, PRINT, and PRINT USING statements 



Purpose: 

The WRITE statement allows the user to create or update sequential, direct or 
indexed file records. 

Comment: 

<channel> is the internal I/O channel number of a channel that was opened for 
OUTPUT or UPDATE that does not have write protect status. If an attempt is made to 
write to a protected file, the error message "Protected File" will be displayed. 

Format 1 of the WRITE statement is used for sequential format files opened with 
access method of SEQUENTIAL. This format causes the next record in sequence to be 
written to the file (i.e. if the last record written to the file was the 11th 
record then this statement will write the 12th record to the file). 

Format 2 of the WRITE statement is used for files opened with access method of 
DIRECT or INDEXED. A file opened with access method DIRECT will require a numeric 
key expression; a file opened with access method INDEXED will require a string key 
expression. In either case the record specified by the key will be written to the 
file, replacing any existing record with the same key. 

When the key is numeric its value must be greater than zero and less than or equal 
to the number of records allocated to the file. Using a key outside of this range 
will cause an "Invalid key" error. 

The WRITE statement always locks the record before writing it to the file. The 
WRITE statement also unlocks any record that was locked in the file by this program 
(unless option LOCK was used with the OPEN statement). 

The only proper way to retrieve a record written to a disk file with the WRITE 
statement is with a READ or READNEXT statement. Using an INPUT or LINPUT statement 
on a record that was output with a WRITE statement will cause an "Invalid file 
format" error. 
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Examples: 



0010 OPEN #1 
0020 OPEN #2 
0030 OPEN #3 



: "DATA. FILE", OUTPUT SEQUENTIAL 

: "CUSTOMER. MASTER", UPDATE INDEXED 

: "TRANSACT. DETAIL: A", UPDATE DIRECT, LOCK 

0040 WRITE #1: DATA1,DATA2,STRING$, 1*34+5 

0050 WRITE #2, "Name": ADDR$,CITY$,STATE$,FORMAT$ (ZIP, "99999") .BALANCE 

0060 WRITE #3,24: A,B,C,D,E,F,TOTAL,LINK% 



Incorrect Examples: 

0070 WRITE #1,23: A,B,C,D 
0080 WRITE #2: A$,BETA$,C 
0090 WRITE #3,"REC"&STR(I%): A,B 



Explanation: 

Not valid for sequential access. 
Indexed access requires key. 
Direct access requires numeric key. 
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CHAPTER 10 
FUNCTIONS 



A function is a relation between two variables such that for each value of the 
independent variable there is one, and only one, value of the dependent variable. 
When a function is used (called) in BASIC, the independent variable (s) is the 
parameter and the dependent variable is the value of the function. For example: 

100 LET Y = SQR(X) 

X is the independent variable and must be defined before the function, SQR, is 
called. The value of the function, SQR(X) is the dependent variable and, in this 
example, is assigned to the variable Y. 

Functions are not statements. 

BASIC provides many predefined functions for the programmer's use. These include 
thirty numeric functions (including trigonometric), twenty six string functions, 
four input /output functions, one file function, four logical functions, two error 
functions, and one user function. Specifically they are: 

Numeric functions: 



ABS Absolute value 

ASC Decimal value of character 

ATN Arctangent 

BIN Convert from binary base 

COS Cosine 

DAY Convert from ext date format 

EXP Exponential 

FIX Integerize number 

FLOAT Float integer number 

HEX Convert from hexadecimal base 

INT Return integer portion 

LEN Return length of string 

LOG Natural logarithm 

MATCH Compare string with mask 



String functions: 

AT$ Cursor control 

BINOF$ Convert to binary base 

CHR$ Return ASCII of number 

CRT$ Cursor control 

DATE$ Convert to ext date 

DEL$ Delete sub-string field 

DTE$ Validate string for date 

EXT$ Extract sub-string field 

FORMAT $ Format string 

HEXOF$ Convert to hexadecimal base 

INS$ Insert sub--*-ring field 

LEFT$ Return left portion of string 

LPAD$ Add leading spaces 



MAX Return maximum of two numbers 

MIN Return minimum of two numbers 

MOD Perform modulo of number 

NBR Test string for numerics 

OCT Convert from octal base 

PI Constant: 3.141592653590 

RND Pseudorandom number 

ROUND Round number 

SCH Search string for sub-string 

SEC Convert from ext time format 

SGN Return sign of value 

SIN Sine 

SQR Square root of number 

TAN Tangent 

VAL Numeric value of string number 



LTRIM$ Remove leading spaces 

MID$ Return middle of string 

OCTOF$ Convert to octal base 

OVR$ Overlay string with string 

REP$ Replace sub-string field 

RIGHT$ Return right portion of string 

RPAD$ Add trailing spaces 

RPT$ Generate string of characters 

RTRIM$ Remove trailing spaces 

SPACE$ Generate string of spaces 

STR$ Return ASCII value of character 

TIME$ Convert to ext time format 

TRIM$ Remove leading & trailing spaces 
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Input /Output functions: 

INP Value of control char entered 
LINE Return line length of channel 

Logical functions 

LRL Logical rotate left 
LRR Logical rotate right 



PAGE Return page length of channel 
POS Position of output rec pointer 



LSL Logical shift left 
LSR Logical shift right 



Error number of error 



File function: 

EOF Test for end of file 
Error functions: 

ERL Line number of error ERR 

User function: 

USR User written assembly language subroutine call. 

The following functions always return an integer value: ASC, EOF, ERL, ERR, FIX, 
HEX, INP, LEN, LINE, LRL, LRR, LSL, LSR, MATCH, NBR, PAGE, POS, SCH, SGN. 

The following functions return an integer value when the parameter to the function 
is an integer: INT and USR. 

All other numeric functions return floating point values. 

A function call has the general form of: 

<f unction name> [$] (parameters) 

In addition to the pre-defined functions listed above, the user may define his own 
functions with the DEF statement. These functions are only defined while the 
program defining them is in memory. 

The parameters passed to a function are not changed by the function. 

Function names cannot be abbreviated and function names cannot be used as variable 
names . 

References to string functions do not require the dollar sign character. For 
example, SPACE(5) is acceptable for SPACE$(5). 
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10* 1 Numeric Functions 

ABS(<jium-exp>) The numeric expression is evaluated and its absolute value is 

assigned to the function. 

Example: PRINT ABS (23) ;ABS (-23) 
23 23 

ASC(<strlng-eiq)>) The string expression is evaluated and the ASCII, integer value 

of the first character in the resulting string is returned. 

Example: PRINT ASC(A$) 
65 

BIN(<string-exp>) The string expression is evaluated and the resulting string is 

interpreted as a binary value with its equivalent decimal, 
integer value returned. Remember that binary values only use 
the digits and 1. 

Example: PRINT BIN("0101010101010101") ;BIN("0000111100001111") 
21845 3855 

DAY(<string-e3q)>) The string expression is evaluated and interpreted as a date 

field. The number of days since December 31,1899 to that date 
is returned. 

Example: PRINT DAY("5/17/77"),DAY("l-l-0") 
28261 1 

EXP(<num-eaq)>) The expression is evaluated; the constant e is raised to the 

value of the expresion and assigned to the function. 

FIX(<nuni— eiq>>) The fractional portion of the value of the expression is 

truncated; the resulting integer portion is assigned to the 
function (32767 to -32767). 

Example: PRINT FIX(1.5) ;FIX(.5) ;FIX(5.5) ;FIX(-43.5) 
1 5-43 

FLOAT (<nu]n-exp>) The numeric expression is evaluated and converted, if necessary, 

to a floating point value. 

Example: PRINT 1/4; 1 /FLOAT (4) ; 1/4. 
.25 .25 

HEX(<strlng-exp>) The string expression is evaluated and the resulting string is 

intepreted as a hexadecimal value with its equivalent decimal, 
integer value returned. Remember that hexadecimal values use 
the digits through 9 and the letters A through F. 

Example: PRINT HEX("OFF") ;HEX("100") 
255 256 

INT(<nuiD-exp>) The expression is evaluated and the greatest signed integer of 

that value is assigned to the function. The result of this 
function is an integer or floating point, depending upon the 
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argument of the function. 

Example: PRINT INT(1.5) ;INT(.5) ;INT(-4.6) 
1 -5 

LEN(<string-e^>) The string expression is evaluated and its length is returned as 

an integer. 

Example: PRINT LEN("ABCDEF") ;LEN(" X ");LEN(SPACE$(10)) 
6 10 10 

L06(<niiiD-exp>) The expression is evaluated and the natural logarithm of that 

value is assigned to the function. (Natural logarithms are 
logarithms to base e). 

The common logarithm (base 10) may be computed by dividing the 
natural logarithm by LOG(IO), i.e.: LOGIO(X) = LOG (X) /LOG (10) . 

MATCH (<strlng~e^l>y<strlng'-exp2>) The two string expressions are evaluated and the 

second expression is used as a mask for match purposes. If the 
first string does match the mask a true value is returned (-1); 
if the string does not match the mask a false value is returned 
(0). The mask characters are interpreted as follows: 

@ Any alphabetic character or space in this position is a 

match. 
# Any numeric digit in this position is a match. 
? Any character in this position is a match. 
*@ One or more alphabetic characters in these positions will 

match. 
*# One or more numeric digits in these position will match. 
*? One or more characters in these positions will match. 
% This is the 'escape' character: the special character 

following (@, #, ?, * or %) is treated as a literal match 

character) . 

All other characters are treated as literal match characters, 
i.e., the corresponding position in the first string must 
contain the specific character. 

The following are example masks along with a description of what 
they will match: 

Mask: "ABC?" 

Matches: Any four character string starting with the uppercase 
letters A, B, and C. The following strings will match 
this mask: "ABCX", "ABCl", "ABC-". The following 
strings will not match this mask: "ABDE", "XXXX", 
"ABCDEFGH", "ABC", "WXYZ". 

Mask: "ABC*?" 

Matches: Any four or more character string starting with the 
uppercase letters A, B, and C. The following strings 
will match this mask: "ABCDEF", "ABC#*$$234". The 
following strings will not match this mask: "A", "234", 
"ABDXLKJ". 
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Mask: "ABC*?DEF" 

Matches: Any string whose first three letters are A, B, and C, 
and whose last three letters are D, E, and F. One or 
more characters between these are acceptable. The 
following strings will match this mask: "ABCXDEF", 
"ABCXXXXXDEF", "ABC12433ABCDEF". The following strings 
will not match this mask: "ABC", "ABCD", "ABCDE", 
"ADEF", "ABCDEF". 

Mask: "##//-#//-####" 

Matches: Any eleven character string with: three digits, a 
hyphen, two digits, a hyphen, and four digits (like a 
Social Security Number). The following string will 
match this mask: "123-45-6789". The following strings 

will not match this mask: "123456789", "123/45/6789", 
"12ABD". 

Mask: "(a@@//##" 

Matches: Any six character string whose first three characters 
are letters or spaces and whose last three characters 
are digits. The following strings will match this 
mask: "abcl23", "AB 123", "Xyz002". The following 
strings will not match this mask: "123ABC", "AB1234", 
"XXXXXX", "ABCX123". 

Mask: "%*%*%*#//#" 

Matches: Any six character string whose first three characters 
are asterisks and whose last three characters are 
digits. The following strings will match this mask: 
"***123", "***738". The following strings will not 
match this mask: "***ABC", "***1234", "112456", 
"**ABCDEFG". 

MAX(<au]ii-eiq>l>,<mi]n-e3q>2>) The two expressions are evaluated and compared to each 

other. The value of the expression whose value is greatest is 
returned. 

Example: PRINT MAX(5,21) ;MAX(PI, 3.14) ;MAX(1, 1) 
21 3.141592653590 1 

MIN(<iiu]it-ezpl>y<iiuiiir-e2p2>) The two expressions are evaluated and compared to each 

other. The value of the expression whose value is smallest is 
returned. 

Example: PRINT MIN(5,21) ;MIN(1,-1) ;MIN(3*23, 70) 
5 -1 69 

M0D(<iiu]ii-ezpl>,<iium-exp2>) The two numeric expressions are evaluated. The value of 

the first expression is divided by the value of the second 
expression and the remainder is assigned to the function. 

Example: PRINT M0D(11,4) ;MOD (2.2, .8) 
3 .6 

NBR(<strlng-e^>) Analyzes the string expression to determine if it could be 

converted to a number. The string expression is first 
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evaluated. If the resulting string contains any non-numeric 
characters (other than digits, plus or minus sign, period, 
leading or trailing spaces, comma, or letter E) an integer is 
returned (false). If the resulting string is a valid decimal or 
hexadecimal number then an integer -1 is returned (true). 

Example: PRINT NBR("123") ;NBR("OABCH") ;NBR("1.23E23") 
-1 -1 

PRINT NBRC'NAME") 


OCT(<strliig-e:q>>) The string expression is evaluated and the resulting string is 

interpreted as a octal value with its equivalent decimal, 
integer value returned. Remember that octal values only use the 
digits through 7. 

Example: PRINT OCT("071") ;OCT("100") 
57 64 

PI The constant 3.141592653590 is assigned to the function. 

RND The value of the next pseudorandom number is assigned to the 

function. The value is a floating point number between zero and 
one. 

ROUND (<ni]]it-ezpl>t<nu]B-exp2>) The two numeric expressions are evaluated and the 

first expression is rounded to the number of places specified by 
the value of the second expression. Positive values for the 
second expression indicate the number of digits to the right of 
the decimal point; negative values for the second expression 
indicate the number of digits to the left of the decimal point. 

Example: PRINT R0UND(PI,4) ;ROUND(1234.567,-2) 
3.1416 1200 

PRINT ROUND (1.234567, 4) ;ROUND (2. 34,0) 
1.2346 2 

SCH(<nu]n-ezp>»<Strliig-ezpl>»<strliig--e:iq>2>) The expressions are all evaluated. A 

search is made of the resulting <string one>, starting at the 
character position <number one>, for the sub-string <string 
two>. 

If <string two> is found in <string one> then the starting 
position in <string one> is returned. If <string two> is not 
found in <string one> then the integer value zero is returned 
(false) . 

When <string two> is the null string (equal to "") the integer 
value one is always returned. The null string is a proper 
substring of any string and is treated conventionally as the 
first element of every string. 

Example: PRINT SCH(1,"ABCDEFGH", "D") ;SCH(3,"ABCDEFGH","EFG") 
4 5 
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SEC (<strliig-exp>) 



SGH(<ni]m-eiq>>) 



SQR(<aum-ezp>) 



VAL (<strliig-€3q») 



PRINT SCH ( 1 , "ABCDEFGH" , "X" ) ; SCH ( 1 , "ABC" , "" ) 
1 

The string expression is evaluated and interpreted as a 
normalized time of day (hh:mm:ss). The value of the number of 
seconds since midnight (00:00:00) to the time represented by the 
string expression is returned. 

Example: PRINT SEC("12:00:00") ;SEC("01:05:08") 
43200 3908 

Note: To get the current time of day in seconds use: 
SEC(TIME$(0)) 

The numeric expression is evaluated and the sign (+1, or -1) 
of the value is assigned to the function. 

Example: PRINT SGN(PI) ;SGN(-1.0/-2.0) ;SGN(-43) ;SGN(PI-PI) 
11-10 

The expression is evaluated and the square root of the resulting 
value is assigned to the function. 

Example: PRINT SQR(4) ;SQR(25) ;SQR(11) 
2 5 3.31662479161... 

The string expression is evaluated and interpreted as a numeric 
constant. If the string contains any non-numeric characters 

(see section on "Numeric Constants") a trappable error occurs. 
If the string is a valid number then the value of that number is 
assigned to the function. 

Example: PRINT VAL("123") ;VAL("1. 234E23") 
123 1.234E+023 

PRINT VAL("ABCD") 
Illegal number 
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10 • 2 Trigonometric Functions 



ATN(<exp>) 
COS(<eiq>>) 
SIN(<ezp>) 
TAN(<exp>) 



The expression is evaluated and the arctangent of that value is 
assigned to the function. 

The expression is evaluated and the cosine of that value is 
assigned to the function. 

The expression is evaluated and the sine of that value is 
assigned to the function. 

The expression is evaluated and the tangent of that value is 
assigned to the function. 



The argument for the SINe, COSine, and TANgent functions is an angle expressed in 
radians. Although any angle will be accepted as a valid argument, some accuracy 
will be lost if the angle is outside the range of +-2PI. This is because the 
function routine must first reduce the angle to the first quadrant before 
evaluating the function. If the angle is known in degrees, it must be converted to 
radians before it is used as the function argument. This may be done as part of 
the expression. 

The argument of the ArcTaNgent function may be any number (the tangent of any 
angle). The result will be an angle in the range +-PI/2 radians. 

The following identities may be used to compute trigonometric functions other than 
sine, cosine, tangent, and arctangent: 



Function 



Identity 



Cotangent 

Secant 

Cosecant 

Arcsine 

Arccosine 

Arccotangent 

Arcsecant 

Arccosecant 

Degrees to Radians 

Radians to Degrees 



DEF FNCOT (ANGLE) = 1 /TAN (ANGLE) 

DEF FNSEC (ANGLE) = 1/COS (ANGLE) 

DEF FNCO SEC (ANGLE) == 1 /SIN (ANGLE) 

DEF FNARCSIN (ANGLE) = ATN(ANGLE/SQR(1-ANGLE'*2) ) 

DEF FNARCCOS (ANGLE) = ATN(SQR(1-ANGLE'"2) /ANGLE) 

DEF FNARCCOTAN (ANGLE) = ATN(1 /ANGLE) 

DEF FNARCSEC (ANGLE) = ATN(SQR(ANGLE"2-1) ) 

DEF FNARCCO SEC (ANGLE) = ATN(1/SQR(ANGLE"2-1) ) 

DEF FNRAD (ANGLE) = ANGLE*PI/180 

DEF FNDEG (ANGLE) = ANGLE*180/PI 
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Hyperbolic Function Identity 



Hyperbolic sine DEF FNHSIN (ANGLE) = (EXP (ANGLE) -EXP (-ANGLE )) /2 

Hyperbolic cosine DEF FNHCOS (ANGLE) = (EXP (ANGLE )+EXP (-ANGLE) ) /2 

Hyperbolic tangent DEF FNHTAN(A) = (EXP(A)-EXP(-A) )/(EXP(A)+EXP(-A) ) 

Hyperbolic secant DEF FNHSEC (ANGLE) = 1 /FNHCOS (ANGLE) 

Hyperbolic cosecant DEF FNHCOSEC (ANGLE) = 1 /FNHSIN (ANGLE) 

Hyperbolic cotangent DEF FNHCO TAN (ANGLE) = 1 /FNHSEC (ANGLE) 
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In the examples, assume that A$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 

AT$(<nam-eiq>l>,<aiim-e^2>) Generates a string of characters representing the cursor 

control commands for the terminal designated by the console 
terinal attachment. The first expression is interpreted as the 
horizontal coordinate. The second expression is interpreted as 
the vertical coordinate. Both coordinates are relative to one. 
For example, the upper left corner of the screen is referenced 
as AT$(1,1). 



BINOF$ (<niiBi~ezp>) 



The numeric expression is evaluated, integer ized and translated 
into the string of characters representing the value in binary. 
A sixteen character string is always generated. 

Example: PRINT BINOF$(123) ;" ";BINOF$ (23129) 
0000000001111101 0101101001011001 



CHR$ (<iium-exp>) 



Generates a one character string whose ASCII value is the value 
of the expression (see appendix on "Character Codes"). 



Example: 



PRINT CHR$(65) 
A 



CRT$(<mi]ii-eipl>9<iii]iii-ezp2>) This is a synonym for the AT$ function (see above). 

CRT$(<strlng'-exp>) Generates a string of characters representing the cursor control 

commands for the terminal designated by the CONG attachment. 
Correct values for string expression and their functions are: 

HOME Move cursor to upper left corner. 
CLEAR Clear screen. 
EOS Erase to end of screen. 
EOL Erase to end of line. 
UP Move cursor up one line. 
DOWN Move cursor down one line. 
LEFT Move cursor one position to left. 
RIGHT Move cursor one position to right. 
IL Insert line. 
DL Delete line. 
IC Insert character. 
DC Delete character. 

PON Following characters are to be screen protected. 
POFF Following characters are not screen protected. 
EU Erase unprotected. 
KON Keyboard unlock. 
KOFF Keyboard lock. 
FON Format on. 
FOFF Format off. 

BON Following characters are to "blink". 
BOFF Following characters are normal (no blink). 
ULON Following characters are to be underlined. 
ULOFF Following characters are not to be underlined. 
RVON Following characters are to be displayed in reverse video 
(black on white background). 
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RVOFF Following characters are to be displayed in normal video 
(white on black background). 

Note: The control codes generated by this function are the 
internal codes used to perform the function. The code is only 
translated to the proper character sequence when it is output by 
the system. 

This function always generates the internal code but it is only 
meaningful when that code is output to the CONSOLE. Refer to the 
O ASIS System Reference Manual appendix on "Terminal Class Codes" 
for the specific controls implemented for each type of terminal 
class. 

DATE$(<iiuinr-ezp>) Returns a string of characters in normalized date format (i.e., 

mm/dd/yy) representing the expression interpreted as the number 
of days since December 31, 1899. The value (zero) is 
interpreted as the current system date. 

Example: PRINT DATE$(10);" ";DATE$(0);" ";DATE$ (28262) 
01/10/00 05/15/78 05/18/77 

DTK$(<string-exp>) Validates the string expression for a valid date. If the string 

is valid, the standard date format is created for that date. If 
the string is invalid, a null string is generated. A date may 
contain: digits, ., /, -. The standard date format is mm/dd/yy . 
The standard date format includes leading zeros. 

Example: PRINT DTE$ ("7/6/76") ,DTE$ ("2/30/76") ,DTE$ ("112154") 
07/06/76 11/21/5A 

EXT$(<striiig-e^>,<num-expl>,<nuin-e3^2>) Returns with the subfield of the string 

expression whose position in string is indicated by the values of 
the two numeric expressions. The string returned is the subfield 
of the string whose position is the <num-exp2> subfield of 
<num-expl> subfield. 

Example: B$ = AAAA'^BBBB'^CICICI] C2C2C2]C3C3C3'^DDDD 

PRINT EXT$(B$,2,0) 
BBBB 

PRINT EXT$(B$,3,3) 
C3C3C3 

PRINT EXT$(B$,3,0) 
C1C1C1]C2C2C2]C3C3C3 

PRINT EXT$(EXT$(B$,3,0),1,2) 
C2C2C2 

As illustrated, when the second numeric expression is zero the 
entire field referenced by the first numeric expression is 
extracted. When the field designated by two numeric expressions 
does not exist in the string, a null string is returned. 

BASIC - 209 - STRING FDNCTIOHS 



BASIC REFERENCE MANUAL 

FORlfAT$(<aiim-ezp>,<strlng-ezp>) This function has the same capabilies as the PRINT 

USING statement in regards to the formating of numeric values. 
The two expressions are evaluated and the numeric value is 
formated according to the masking characters in the string 
expression. 

** Leading asterisk fill. 

$$ Leading floating dollar sign. 

DB Trailing literal of DB for negative values only. 

CR Trailing literal of CR for negative values only. 

> Number surrounded with angle brackets (<>) for negative 

values only. 
# Digit position with leading zero suppression. 
9 Digit position with leading zero fill. 
+ Trailing sign for positive and negative values. 
— Trailing minus sign for negative values only. 
, Normalize number with commas every three digits. 
"^^ Use exponential format with single unsigned digit 

exponent . . 
'^"^ Use exponential format with signed single digit exponent. 
"'^'^^ Use exponential format with signed double digit exponent. 
"^"■^^^ Use exponential format with signed triple digit exponent. 

Example: PRINT FORMAT$ (23, "99999" ) ;FORMAT$ (23, "#####") 
00023 23 

PRINT FORMAT$ (23, "**###");" ";FORMAT$ (123456. 78, "$$#,# 
***23 $123,456.78 

PRINT FORMAT$ (12345, "#.#//##/r'^") 
1.2345E4 

PRINT FORMAT$(-12345. 67, "#,######.##>") 
<12,345.67> 

For more information and examples see the chapter "Formatted 
Input & Output" in this manual. 

HEXOF$ (<ni]in~e3^>) The numeric expression is evaluated, integerized and translated 

into the string of characters representing the value in 
hexadecimal. A four character string is always generated. 

Example: PRINT HEXOF$(94);" ";HEXOF$ (23129) 
005E 5A59 

INS$(<strliig-ezpl>y<nu]ii-ezpl>y<iuiiii-e3q>2>y<strliig-e:^p2>) This function is the 

inverse of the EXT$ function, that is, it inserts a subfield 
into a string. The substring <string-exp2> will be inserted 
after the subfield designated by the values of the two numeric 
expressions. It is important to note that the field is inserted 
after the one designated. 

Example: B$ = AAAA"BBBB'"C1C1C1]C2C2C2]C3C3C3"DDDD 

PRINT INS$(B$,2,0,"NEW") 
AAAA^BBBBI^EW^CICICI] C2C2C2] C3C3C3"DDDD 
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PRINT INS$(B$,0,0,"NEW") 
NEW"AAAA^BBBB"C1C1C1]C2C2C2]C3C3C3"DDDD 

PRINT INS$(B$,3,1,"NEW") 
AAAA^BBBB^C1C1C1]NEW]C2C2C2]C3C3C3'"DDDD 

PRINT INS$(B$, 3,-1, "NEW") 
AAAA'^BBBB^EW] CICICI] C2C2C2] C3C3C3'"DDDD 

PRINT INS$(B$,7,2,"NEW") 
AAAA^BBBB''C1C1C13C2C2C2]C3C3C3'"DDDD ]]NEW 

LEFT$(<strliig-eiq>>9<ni]]nr-exp>) Indicates a substring of the string expression from 

the first character through the nth character where n is the 
value of the numeric expression. 

Example: PRINT LEFT$(A$,7) 
ABCDEFG 

LPAD$(<strlng--ezp>,<iium-e3q>>) Adds leading spaces to a string. The two expressions 

are evaluated and the resulting string expression is expanded to 
the length indicated by the value of the numeric expression by 
adding sufficient leading spaces. If the string expression is 
already greater than or equal to the length indicated no spaces 
are added and the string is returned, unmodified. 

Example: PRINT "#";LPAD$<'"1234",6) ;"#" 
# 1234# 

PRINT "#";LPAD$("1234",3);"#" 
#1234// 

LTRIM$(<strliig-e3qp>) Removes leading spaces from a string. The string expression 

is evaluated and any leading spaces are removed. 

Example: PRINT LTRIM$(" ABC DEF ");"#" 
ABC DEF # 

MID$(<striiig-e^>,<nun»-eapl>,<iuimr-e2q>2>) Indicates a substring of the string 

expression starting with character Nl, for N2 characters where 
Nl and N2 are the values of the two numeric expressions. The 
length of the string returned will be at most N2-N1+1 
characters. 

Example: PRINT MID$(A$, 15,5) 
OPQRS 

OCTOF$(<nu]ii~exp>) The numeric expression is evaluated, integer ized and translated 

into the string of characters representing the value of the 
number in octal. A six character string is always generated. 

Example: PRINT OCTOF$(123) ; " ";OCTOF$(94) 
000175 000156 
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0VR$(<strlng-expl>»<num~ezpl>9<iunB-ezp2>,<strliig-ezp2>) Truncates or expands the 

second string expression to exactly N2 characters, where N2 is 
the value of the second numeric expression. Then the first 
string expression is overlaid by the second string expression, 
from position Nl for N2 characters. 

Example: PRINT OVR$(A$,2,3,"0123456") 
AO 1 2EFGHIJKLMN0PQRS TUVWXYZ 

R£P$(<strlng--e2pl>9<nu]ii-ezpl>,<ia]iin--eiqp2>,<strlng--ezp2>) This function is similar to 

the INS$ function except that it replaces a subfield instead of 
inserting the subfield. The substring <string-exp2> will 
replace the subfield designated by the values of the two numeric 
expressions. If there is no subfield to be replaced then the 
the substring will be inserted in its proper place. If the 
value of the second numeric expression is zero, the replacement 
is for the entire field designated by the first numeric 
expression. 

If the first string expression does not have sufficient 
subfields, sufficient null fields will be added. 

The string expression must not contain any characters whose 
value is greater than 127 or the results will be unpredicatable. 

Using the character ^ as the field delimiter and ] as the 
subfield delimiter: 

Example: B$ = AAAA"BBBB"C1C1C1]C2C2C2]C3C3C3'"DDDD 

PRINT REP $(B$, 6,0, "HERE") 
AAAA"BBBB"C1C1C1]C2C2C2]C3C3C3"DDDD"^HERE 

PRINT REP$(B$,3,2,"NEW") 
AAAA'^BBBB^C IC IC 1 ] NEW] C3C3C3"DDDD 

PRINT REP$(B$,2,2,"NEW") 
AAAA"BBBB]NEW^C1C1C1]C2C2C2]C3C3C3'^DDDD 

Note: Field and subfield delimiters cannot be created except 
with this function or the INS function. The field delimiters 
are not really the characters ^ and ] because the parity bit is 
turned on to indicate that the character is a delimiter and not 
a normal ASCII character. 

RI6HT$(<:8trliiig-eiq>>y<iu]m-ezp>) Returns the substring of the string expression from 

the nth character through the last character in the string 
expression where n is the value of the numeric expression. 

Example: PRINT RIGHT$(A$,20) 
TUVWXYZ 

RFAD$ (<strtng-eiq>>» <ni]]n-ezp>) Adds trailing spaces to a string. The two 

expressions are evaluated and the resulting string expression is 
expanded to the length indicated by the value of the numeric 
expression by adding sufficient trailing spaces. If the string 
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expression is already greater than or equal to the length 
indicated no spaces are added and the string is returned, 
unmodified. 

Example: PRINT "#";RPAD$ ("1234", 6) ;"#" 
#1234 # 

PRINT "#";RPAD$ ("1234", 3) ; "#" 
#1234// 

RPT$(<iniift-exp>,<strlng-e^>) Generates a string of <num-exp> repetitions of the 

<string expression>. 

Example: PRINT RPT$(3,"ABCD") 
ABCDABCDABCD 

RTRIM$(<string-ezp>) Removes trailing spaces from a string. The string expression 

is evaluated and any trailing spaces are removed. 

Example: PRINT "#";RTRIM$(" ABC DEF ");"#" 
# ABC DEF# 

SPACE$(<ai]]ii~e3q>>) Returns a string of spaces of <num-exp> length. 

Example: PRINT LEFT$(A$,3)&SPACE$(4)&MID$(A$,4,5) 
ABC DEFGH 

STR$(<:num-e^>) Indicates a string of numeric characters representing the value 

of the numeric expression. There are no leading or trailing 
blanks. 

Example: PRINT "ABC";STR$ (1.23) ; "DEF" 
ABC1.23DEF 

PRINT "ABC"; 1,23; "DEF" 
ABC 1.23 DEF 

TIME$(<nu]a-ezp>) Indicates a string of characters in normalized time format 

(i.e., hh:mm:ss) representing the numeric expression interpreted 
as the number of seconds since midnight of the current day. The 
value (zero) is interpreted as the current time of day. 

Example: PRINT TIME$(7199) ,TIME$(0) 
01:59:59 15:24:32 

TRIM$(<strl]ig-exp>) Removes any leading or trailing spaces and reduces all embedded 

multiple spaces to a single space. 

Example: PRINT "#";TRIM$(" ABC DEF HI J ");"#" 
#ABC DEF HIJ# 
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10 .4 Input /Output Functions 



INP 



Returns the ASCII, integer value of the first character of the 
last input, if the first character was a control character or a 
user defined key. When the first character was not a control 
character, the value of the function is 0. For example: if the 
last input was a CTRL/D the value of the INP is 4. If the last 
input was a CTRL/Z the value of INP is 26. If the last input 
was ABCDEFG the value of INP is 0. 



Also see the appendix on "User Definable Keys". 



LINE (<nu]it-exp>) 



Returns the integer value of the ATTACHed line length of device 
opened on the I/O channel whose value is <num-exp>. I/O channel 
may be used to indicate the console device- 



Example: PRINT LINE(O) REM Console terminal 
79 



PAGE (<nuiii-exp>) 



Returns the integer value of the ATTACHed page length of device 
opened on the I/O channel whose value is <num-exp>. I/O channel 
may be used to indicate the console device. 



Example: 



PRINT PAGE(O) 
23 



REM Console terminal 



POS (<nuiii-ezp>) 



Returns the integer count of the number of characters output on 
the I/O channel indicated by the numeric expression. 

Example: PRINT " 123456" ;POS(0) 
123456 6 



I/O FONCnOHS 



- 214 - 



BASIC 



CHAPTER 10: FUNCTIONS 
10*5 Logical Functions 

The following functions allow the programmer to manipulate the bits of an integer 
value (binary word — 16 bits). All of the arguments are numeric expressions whose 
value will be integerized. 

LRL(<num-e^l>,<nuiit-ezp2>) If the value for either of the expressions is negative 

then it is replaced with the value 0. If the first exprression 
is greater than 65535 then it is replaced with the value 0. If 
the second expression is greater than 15 then it is replaced 
with the value 0. A logical rotate left is performed on the 
first integer for <num-exp2> bit positions. 

LSR(<]iu]ii~expl>,<num-ezp2>) If the value for either of the expressions is negative 

then it is replaced with the value 0. If the first expression 
is greater than 65535 then it is replaced with the value 0. If 
the second expression is greater than 15 then it is replaced 
with the value 9. A logical rotate right is performed on the 
value of <num-expl> for <num-exp2> bit positions. 

LSL(<nu]ii-expI>,<nu]ii-ezp2>) If the value for either of the expressions is negative 

then it is replaced with the value 0. If the first expression 
is greater than 65535 then it is replaced with the value 0. If 
the second expression is greater than 15 then it is replaced 
with the value 9. A logical shift left is performed on the 
value of <num-expl> for <num-exp2> bit positions. 

LSR(<niim--expl>,<iiuin-exp2>) If the value for either of the expressions is negative 

then it is replaced with the value 0. If the first expression 
is greater than 65535 then it is replaced with the value 0. If 
the second expression is greater than 15 then it is replaced 
with the value 9. A logical shift right is performed on the 
value of <num-expl> for <num-exp2> bit positions. 
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10.6 File Function 



EOF (<nuinr-ezp>) 



The numeric expression is evaluated and the I/O channel 
corresponding to that value is checked for end-of-file 
condition. If the channel has not reached end-of-file the value 
of the function is (false). If the channel has reached 
end-of-file the value of the function is -1 (true). 

Channel zero (console) is never at end-of-file and will cause an 
error if tested with this function. Use the INP function to 
test for a CTRL/Z. 
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10.7 Error Functions 

The following two functions do not have any arguments and should only be used in an 
error handling routine (see ON ERROR and RESUME statments). 

ESL Returns the integer line number of the statement causing the 

error to occur. A value of zero is returned if no error has 
occured. 

Note: When this function is used on the left side of a 
relational expression and an unsigned integer is used on the 
right side of the same relational expression the RENUMBER 
command will assume that the unsigned integer is a line number 
and adjust it accordingly. 

ERR Returns the integer error number of the error that occured. A 

value of zero is returned if no error has occured. For a list 
of error numbers, their meanings and what might cause them see 
the appendix "Error Messages". 

This function may be assigned a value with the LET statement in 
order that error handling routines may be tested. 
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10.8 USR Function 

The USR function allows the BASIC programmer to interface a assembler language 
subroutine to the BASIC language program. 

When the user requires a procedure to be accomplished that requires real-time 
processing or can only be done with the features of the CPU that are not available 
to the BASIC program, he must write an assembler language program. In many cases 
it is advantageous to only have a part of the procedure written in assembler code 
with the more routine processes accomplished with a BASIC language program. In 
order to transfer control and data between the user written subroutine and the 
BASIC program the USR function is used. 

USR (<addr>, <num-exp>) 

USR(<addr>, <strlng-exp>) 

<addr> refers to the entry point address, relative to the load address 

of the assembler subroutine. 

<num-exp> when evaluated and rounded to the nearest integer, is the 

sixteen bits of signed integer data to be transmitted to the 
assembler subroutine via the HL registers. When the subroutine 
is ready to return control back to BASIC the numeric value to be 
assigned to the function should be placed in the HL register 
pair. 

<string-exp> when evaluated, is left in the "string accumulator". The 

address of this string accumulator is placed in the HL register 
pair before control is given to the user subroutine. The string 
accumulator is a 256 byte area that contains a one byte length 
followed by up to 255 characters. This area may be used by the 
subroutine as long as care is taken not to exceed the 256 byte 
limit. When the subroutine is ready to return control back to 
BASIC, it should load the HL register pair with the address of 
the string that is to be returned. 

The USR function is a standard function call and may be used in any position of a 
BASIC statement that the other functions may be used. 

Only one user written assembler language subroutine may be in memory while BASIC is 
executing, however the one subroutine may in fact be several subroutines 
concatenated together. Information may be found regarding assembly language 
programming in the O ASIS MACRO Assembler Language Reference Manual . 

The subroutine is loaded into memory by specifying it in an OPTION USR statement. 

The OASIS MACRO Assembler Language Reference Manual has an example of a USR 
routine. 
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RESERVED WORDS 

The following words are reserved and may not be used for variable names. The 
notation [...] means that a variable may not even start with the word indicated, if 
that variable is ever used with an implied LET statement. 



ABS 

AND 

ASC 

AT 

ATN 

BIN 

BINOF 

CASE 

CEND 

CHAIN 

CHR 

CLEAR 

CLOSE 

COMMON 

COS 

CRT 

CSI 

DATA 

DATE 

DAY 

DEF 

DEL 

DELETE 

DIM 

DTE 

ELSE 

END 

EOF 

EQV 

ERL 

ERR 

EXP 

EXT 



FIX 

FLOAT 

FNEND 

FN [ . . . ] 

FOR 

FORMAT 

GET 

GO SUB 

GOTO 

HEX 

HEXOF 

IF 

IFEND 

IMP 

INP 

INPUT 

INS 

INT 

LEFT 

LEN 

LET 

LINE 

LINK 

LINPUT 

LOG 

LPAD 

LRL 

LRR 

LSL 

LSR 

LTRIM 

MAT 

MATCH 



MAX 


RIGHT 


MID 


RND 


MIN 


ROUND 


MOD 


RPAD 


MOUNT 


RPT 


NBR 


RTRIM 


NEXT 


RUN 


OCT 


SCH 


OCTOF 


SEC 


ON 


SELECT 


OPEN 


SGN 


OPTION 


SIN 


OR 


SLEEP 


OTHERWISE 


SPACE 


OUTPUT 


SQR 


OVR 


STEP 


PAGE 


STOP 


PI 


STR 


POS 


TAN 


PRINT 


THEN 


PROMPT 


TIME 


PUT 


TRIM 


QUIT 


UNLOCK 


QUOTE 


USR 


RANDOMIZE 


VAL 


READ 


WAIT 


READNEXT 


WEND 


REM 


WHILE 


REM [ . . . ] 


WRITE 


REP 


XOR 


RESTORE 




RESUME 




RETURN 





All "variables" that start with the letters FN will always be treated as 
reference to a user defined function. (See DEF statement.) 
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APPENDIX B 

USER DEFINABLE KEYS 

OASIS BASIC allows the programmer to code programs in such a manner that he can 
test whether certain keys were entered and then take whatever action he has 
programmed. These certain keys are the control keys, usually refered to by CTRL/x 
where x is one of the standard alphabetic keys modified by the control key. 

When a program asks for keyboard input (MAT INPUT, INPUT, LINPUT, or LINPUT USING,) 
and the operator responds with a control key, program control will return to the 
BASIC program. The operator need not type a carriage return after the control key. 
No characters will be displayed on the console device when the operator types a 
control key. 

The program can test which control key, if any, was entered by using the INP 
function. Only input from the console keyboard (I/O channel 0) may be tested with 
the INP function. The programmer may specify whatever action he wishes when the 
correct control key is entered. 

This can be a very useful feature if the programmer is consistent in defining the 

meanings of the control keys. For instance he may define the CTRL/D to mean the 

current date. This is obviously easier for the operator to enter than typing the 

current date. It is also safer than programming a carriage return only to mean the 
current date or some other default value. 

Some terminals have additional keys available to the operator. These are generally 
called function or program keys. If these keys generate an 8 bit code that is not 
one of the displayable ASCII characters then these keys may also be used as user 
definable keys by BASIC. The displayable ASCII characters have decimal values 
between 32 and 127, inclusive. To determine the exact values generated by these 
keys refer to the operators or users manual for the specific terminal. 

Example: 

The following is a simple program that shows the user definable key feature of 
OASIS BASIC. 

10 OPTION PROMPT CHR$(0) 

20 LOOP: PRINT "Please type a control key: "; 

30 LINPUT USING "!",KEY$\PRINT 

40 IF INP=0 THEN IF KEY$<>"" THEN GOTO ERROR 

50 PRINT "The key you typed has a value of"; INP; 

60 PRINT "and was the key ";CHR$(INP+64) 

70 GOTO LOOP 

80 ERROR: PRINT "You don't follow directions very well." 

90 GOTO LOOP 
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B.l Control Key 


Values 
















Key Value 


Key Value 


Key Value 


Key Value 


(§ 







H 


8 


* 


P 


16 


X 


24 


A 


1 




I 


9 


* 


Q 


17 


Y 


25 


B 


2 




J 


10 




R 


18 


Z 


26 


C 


3 




K 


11 




S 


19 


[ 


27 ** 


D 


4 * 




L 


12 




T 


20 


\ 


28 


E 


5 




M 


13 




U 


21 


] 


29 


F 


6 * 




N 


14 




V 


22 


"^ 


30 


G 


7 







15 




W 


23 




31 *** 



* These key values are used for editing by LINPUT USING, and/or INPUT statments. 

** This is the escape code. Because the system control keys are escape sequences 
entry of this key once is an indication to OASIS that the next character may be a 
system request. To get a value 27 passed to the INP function the operator must 
type this key twice. When this is done one escape character is passed to BASIC 
which, if it is the first character of an input field, will set the INP function to 
27. 

*** This value may also bew generated by some terminals by a CTRL /DEL or CTRL /RUB. 

Some systems have other keys that may be tested by this function. If this 
situation is possible then you should use the above program to detect and determine 
the value of the specific keys. 

It is possible that a particular system may have other or different keys that are 
trapped by the operating system and never passed to the BASIC program. It is also 
possible that some keys may generate different values than those listed here. Both 
of these situations are dependent upon the SET values for: RUBOUT, LEFT, RIGHT, UP, 
DOWN, CANCEL and ESCAPE. For more information see the chapter "SET COMMAND" in the 
O ASIS System Reference Manual . 
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C(»1MAND SUMMARY 



AUTO 



AUTO [<start line> [, <increment value>] ] 



BOTTOM 



BOTTOM 



BREAK 



DOWN 



LIST 



BREAK [AT <line ref erence> [AFTER <count>] ] 
MEAK [ON <variable> [CHANGE] [AFTER <count>] ] 
BREAK [ON <variable> <relation> <value>] 



CHANGE 


CHANGE /from string/to string/ [<range>] 


CONTINUE 


CONTINUE 


DELETE 


DELETE [<range>] 



<line-feed> 
<down arrow key> 



HKI.P 






HELP 


INDENT 






INDENT [<indent value>3 


LENGTH 






LENGTH 



L^IST [<range>] 
<carriage return> 



LOAD 



LOAD <program name> [<program type>] 



LOCATE 



LOCATE /<string>/ [<range>] 



LPLIST 



LP^[n]I.IST [<range>] 



LPXREF 



LP[n]XR EF 
MODIFY [<range>] 



MODIFY 
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NAME 


NAME [<program name>[.<program type> [: <program disk>]]] 


NEH 




QUIT 


_QUIT [<number>] 

QUIT [<unquoted string>] 


RENUMBER 


RENUMBER [<first> [<incr> [<start> [<end>] ] ] ] 


RON 


RUN [<program name>] [<starting line>] 


SAVE 


SAVE [<prograin nanie> [<prograin type> [<prograiii disk>] ] ] 


STEP 


STEP [<count>] 


TOP 


TOP 


TRACE 


TRACE 
TRACE VARS 


DNBREAK 


UNBREAK [AT <line reference>] 
UNBREAK [ON <variable>] 


UNTRACE 


UNTRACE 


DP 


<up-arrow key> 
<control/Z> 


VARS 


VARS [<variable list>] 



ZREF 



XREF 
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CASE 



[<line-no>] 


[<label>] 


CASE <expression> 




CKND 

[<line-no>^ 


[<label>] 


CEND 




CHAIN 

[<line-no>^ 


[<label>] 


CHAIN <string expression>[,<line-no>] 




CLEAR 

[<line-no>; 


1 [<label>] 


CLEAR [<variable list>] 




CLOSE 

[<line-no>^ 


[<label>] 


CLOSE #<channel> 




C(»fifON 

[<line-no>. 


1 [<label>] 


COMMON <variable list> 




CSI 

[<line-no> 


1 [<label>] 


CSI <string expression> 




DATA 

[<line-no> 


I [<label>] 


DATA <literal> [ , <literal>] . . . 




DEJ< 

[<line-no> 


I [<label>] 


DEF FN<simple variable>[ (<arg list>)] 


[= <expression>] 


DKT.FTE 

[<line-no> 


1 [<label>] 


DELETE #<channel>,<key> 




DTM 

[<line-no>. 


I [<label>] 


DIM <simple var>(<numeric expr> [ , <numeric expr >])>... 


ELSE 

[<line-no>. 
[<line-no> 


ELSE <statement> 
i ELSE <line number> 


END 

[<line-no> 


I [<label>] 


END 




FNEND 

[<line-no> 


1 [<label>] 


FNEND 




FOR 

[<line-no> 
[<line-no> 


I [<label>] 
] [<label>] 


FOR <num var>=<num exp> TO <num exp>[ 
FOR <var> = <literal list> 


STEP <num exp>] 


GET 


1 [<label>] 


GET <device> <numeric expr>,<variable 


list> 


GOSUB 

[<line-no> 
[<line-no> 


I [<label>] 
I [<label>] 


GOSUB <line reference> 
GO SUB <line reference> 
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GOTO 

[<line-no>] [<label>] GOTO <line reference> 
[<line~no>] [<label>] GO TO <line reference> 


IF 

[<line-no>] [<label>] IF <relation> THEN <statement> [ELSE <statement>] 
[<line-no>] [<label>] IF <relation> THEN <line-ref> [ELSE <line-ref>] 
[<line-no>] [<label>] IF <rel> 


IFEND 

[<line-no>] [<label>] IFEND 


[<line~no>] [<label>] INPUT [<prompt express ion>, ]<variable list> 
[<line-no>] [<label>] INPUT #<channel>: <variable list> 
[<line-no>] [<label>] INPUT //<channel>,<key>: <variable list> 


T.ET 

[<line-no>] [<label>] [LET] <string variable> = <string expression> 
[<line-no>] [<label>] [LET] <numeric var> = <numeric expr> 
[<line-no>] [<label>] [LET] <string variable><substring> = <string expr> 
[<line-no>] [<label>] [LET] <user defined function> = <expression> 


LINK 

[<line-no>] [<label>] LINK <string expression>[, <line-no>] 


LINFUT 

[<line-no>] [<label>] LINPUT #<channel>:<string variable> 

[<line-no>] [<label>] LINPUT #<channel>,<key>:<string variable> 

[<line-no>] [<label>] LINPUT [<prompt expr>, ]USING<string expr>,<string var> 


MAT 

[<line-no>] [<label>] MAT <array name> = <array name> 
[<line-no>] [<label>] MAT <array name> = (<expression>) 


MAT INPUT 

[<line-no>] [<label>] MAT INPUT #<channel>: <array name> 
[<line-no>] [<label>] MAT INPUT #<channel>,<key>: <array name> 


MAT PRINT 

[<line-no>] [<label>] MAT PRINT <array name list> <punct> 

[<line-no>] [<label>] MAT PRINT #<channel>: <array name list> <punct> 

[<line-no>] [<label>] MAT PRINT #<channel>,<key>: <array name list> <punct> 


MAT READ 

[<line-no>] [<label>] MAT READ <array name> 

[<line-no>] [<label>] MAT READ #<channel>: <array name> 

[<line-no>] [<label>] MAT READ #<channel>,<key>: <array name> 


MAT WRITE 

[<line-no>] [<label>] MAT WRITE #<channel>: <array name> 
[<line-no>] [<label>] MAT WRITE #<channel>,<key>: <array name> 
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MOUNT 

[<line-no>] 



[<label>] MOUNT <string expression> 



NEXT 



<line-no> NEXT [<variable>] 



ON ERROR 

[<line-no>] 
[<line-no>] 



[<label> 
[<label> 



ON ERROR GOTO <line reference> 
ON ERROR GOTO 



ON 



[<line-no>] 
[<line-no>] 



[<label> 
[<label> 



ON <numeric expressioii> GOTO <line reference list> 
ON <numeric expression> GOSUB <line reference list> 



OPEN 



[<line-no>] [<label> 



OPEN #<channel>: <string expr>,<mode> <method>[<options>] 



OPTION 

[<line-no>] 



[<label> 



OPTION <option list> 



OTHERWISE 

[<line-no>] 



[<label> 



OTHERWISE 



PRINT 

[<line-no>] 
[<line-no>] 
[<line-no>] 



[<label> 
[<label> 
[<label> 



PRINT [<expression list><punct>] 

PRINT //<channel>[:<expression list><punct>] 

PRINT //<channel>,<key>[ : <expression list><punct>] 



PRINT USING 

[<line-no>] 
[<line-no>] 
[<line-no>] 



[<label> 
[<label> 
[<label> 



PRINT USING <mask>,<expression list><punct> 
PRINT USING #<channel>: <mask>,<expr list><punct> 
PRINT USING #<channel>,<key>: <mask>,<expr list><punct> 



PUT 



[<line-no>] [<label> 



PUT <device> <nunieric expression>,<expression list> 



QUIT 



[<line-no>] [<label> 



QUIT [<expression>] 



RANIMMIZE 

[<line-no>] 



[<label> 



RANDOMIZE 



READ 



[<line-no>] 
[<line-no>] 
[<line-no>] 



[<label> 
[<label> 
[<label> 



READ <variable list> 

READ #<channel>: <variable list> 

READ //<channel>,<key>: <variable list> 



READNEXr 

[<line-no>] 



[<label> 



READNEXT #<channel>, <string key>: <variable list> 



REM 



[<line-no>] [<label> 



REM <any characters > 



RESTORE 

[<line-no>] 
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RESUME 

[<line-no>] [<label>] RESUME <line refereiice> 
[<line-no>] [<label>] RESUME 



RETDRN 

[<line-no>] [<label>] RETURN [<line ref>] 



RUN 

[<line-no>] [<label>] RUN [<string expression>] [,<line number>] 



SELECT 

[<line-no>] [<label>] SELECT [<variable>] 



SLEEP 

[<line-no>] [<label>] SLEEP <numeric expression> 



STOP 

[<line-no>] [<label>] STOP [<expression>] 



THEN 

[<line-no>] THEN <statement> 

[<line-no>] THEN <line number> 



WAIT 

[<line-no>] [<label>3 WAIT 

[<line-no>] [<label>] WAIT DEVICE <numeric expression> 

[<line-no>] [<label>] WAIT PORT <numeric expr>,<numeric expr>[,<numeric expr>] 

[<line-no>] [<label>] WAIT MEMORY <numeric exp>,<nuineric exp>[,<numeric exp>] 



WEND 

[<line-no>] [<label>] WEND 



imiLE 

[<line-no>] [<label>] WHILE <nunieric expression> 



WRITE 

[<line-no>] [<label>] WRITE #<channel>: <expression list> 
[<line-no>] [<label>] WRITE #<channel>,<key>: <expression list> 
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FUNCTION SmSfART 

In the following summary the arguments N, Nl, and N2 all represent numeric 
expressions; the arguments A$ and B$ all represent string expressions. 



ABS(N) 

ASC(A$) 

AT$(N1,N2) 

ATN(N) 

BIN(A$) 

BINOF$(N) 

CHR$(N) 

COS(N) 

CRT$(A$) 

DATE$(N) 

DAY(A$) 



Returns the absolute value of N. 

Returns the ASCII value of the first character in A$. 

Returns the string of characters that, if printed, would position 
the cursor at N1,N2. (Nl is horizontal, N2 is vertical.) 

Returns the arctangent of N (N in radians). 

Returns a decimal value for the binary A$. 

Returns a string representing the binary value of N. 

Returns the character having the ASCII value of N. 

Returns the cosine of N (N in radians). 

Performs non x/y console output control. 

Internal date to external date. 

External date to internal date. 



DEL$(A$,N1,N2,B$) Returns the string of A$ with field designated by Nl and N2 
removed . 



DTE$(A$) 

EOF(H) 

EHL 

ERR 

EXP(N) 

EXT$(A$,N1,N2) 

FIX(N) 
FLOAT (N) 
FORMAT$(N,A$) 
HEX(A$) 
HEXOF$(N) 



Test A$ for valid date. When valid converts to normalized format, 
else returns null string. 

Returns End-Of-File flag for I/O channel N. 

Returns line number of statement causing error. 

Returns number of error. 

Returns the value of e^N. 

Returns the substring of A$ for field Nl of A$ and subfield N2 of 
field Nl. 

Returns the integerized value of N. 

Converts integer N to floating point. 

Formats N according to mask A$. 

Returns a decimal value for the hexadecimal A$. 

Returns a string representing the hexadecimal value of N. 



BASIC 



- 229 - 



FDNcnoH sromART 



BASIC REFERENCE MANUAL 

INP Returns the numeric value of the control character input to 

console. 

INS$(A$,N1,N2,B$) Returns the string of A$ with string B$ inserted after the 
substring of A$ for field Nl of A$ and subfield N2 of field Nl. 



INT(H) 
LEFT$(A$,N) 

LEN(A$) 

LINE(N) 

L06(N) 

LPAD$(A$,N) 

LRL(N1,N2) 

LRR(N1,N2) 

LSL(N1,N2) 

LSR(N1,N2) 

LTRIM$(A$) 

MATCH(A$,B$) 

MAX(N1,N2) 

MID$(A$,N1,N2) 

MIN(N1,N2) 
M0D(N1,N2) 
NBR(A$) 

OCT(A$) 
OCTOF$(H) 



Returns the greatest integer which is less than or equal to N. 

Returns the substring of A$ from the first character to the Nth 
character. 

Returns the length of string A$. 

Returns line length of device opened on channel N. 

Returns the natural logarithm of N. 

Adds leading spaces to A$ to make string of length N. 

Logical rotate left Nl for N2 bit positions. 

Logical rotate right Nl for N2 bit positions. 

Logical shift left Nl for N2 bit positions. 

Logical shift right Nl for N2 bit positions. 

Remove leading spaces from string A$. 

Tests string A$ against mask B$; returns true/false (-1/0). 

Returns the greater value of Nl and N2. 

Returns the substring of A$ from the Nlth character for N2 
characters. 

Returns the lessor value of Nl and N2. 

Returns remainder of Nl divided by N2. 

Test A$ for numerics. Returns if any non-numeric characters in 
A$, else returns -1. 

Returns a decimal value for the octal A$. 

Returns a string representing the octal value of N. 



0VR$(A$9Nl,N2yB$) Returns A$ with B$ overlaid, starting at Nlth character for N2 
characters . 



PA6E(H) 

PI 

POS(H) 



Returns page length of device opened on channel N. 

Returns the constant value 3.141592653590. 

Returns the current character position of output channel N. 
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R£P$(A$,N1,N2,B$) Returns the string of A$ with string B$ replacing the substring 
of A$ for field Nl of A$ and subfield N2 of field Nl. 



RIGHT$(A$,N) 

RND 

ROUND (N1,N2) 

RPAD$(A$,N) 

RPT$(N1,A$) 

RTRIM$(A$) 

SCH(N1,A$,B$) 

SEC(A$) 

SGN(N) 

SIN(N) 

SPAC£$(N) 

SQR(N) 

STR$(N) 

TAN(N) 

TIME$(N) 

TRIM$(A$) 

USR(N1,N2) 

USR$(N,A$) 

VAL(A$) 



Returns the substring of A$ from the Nth character to the end. 

Returns a random number between and 1, exclusive. 

Rounds Nl to number of positions indicated by N2. 

Adds trailing spaces to A$ to make string of length N. 

Returns the string of Nl repetitions of A$. 

Removes trailing spaces from string A$. 

Returns the character position of the string B$ within A$ with the 
search starting at character position Nl. 

External time to internal time. 

Returns the algebraic sign of N (+ or -) . 

Returns the sine of N (N in radians). 

Returns the string of N blanks. 

Returns the square root of N. 

Returns the string of characters representing the number N. 

Returns the tangent of N (N in radians). 

Internal time to external time. 

Remove leading and trailing spaces from string A$. 

Calls assembly subroutine at relative location Nl, passing N2 to 
the routine. 

Cals assembly subroutine at relative location N, passing A$ to the 
routine. 

Returns the numeric value of A$ . 
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ERROR MESSAGES 

F.l Conaand Errors 

AUTO cannot replace or merge lines 

Indicates that the AUTO command attempted to use a line number already in 
use or that there was a line whose line number was between the last auto 
line number and the next auto line number to be used. 



Disk Full 



Indicates that the disk used by the SAVE command is full. Remember that 
saving an existing file causes the previous version of the file to be 
renamed BACKUP. 

Insufficient Menory 

An attempt was made to add another line to the program in memory that 
could not fit into the available memory. 

Invalid command syntax 

Indicates that the command was recognized but a syntax error was detected. 

Invalid Program Name 

An attempt was made to NAME, SAVE, LOAD, or COMPILE a program using an 
invalid name. The program name must be at least two characters in length 
and start with a letter. 

Invalid Statement Number 

An attempt was made to enter or display a line with an invalid line 
number. Line numbers must be between 1 and 9999. 

Renumiber Range Error 

Indicates that the line numbers that would be generated by the RENUMBER 
command would cause lines to change their relative location in the 
program. 

String missing or invalid 

Occurs on a CHANGE or LOCATE command when no previous CHANGE or LOCATE 
command has been executed and no valid string arguments were specified. 

Unrecognized command 

Indicates that the command name was abbreviated too much or misspelled to 
an extent that the command desired could not be discerned. 
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F.2 Edit Errors 

Comma Required 

Colon Required 

End of Line Required 

Equal Sign Required 

E:]q>resslon Required 

File Mark Required 

Keyword Missing or mls--spelled 

Missing Parenthesis 

Numeric E:]q>resslon Required 

Numeric Variable Required 

Statement Number Required 

String Expression Required 

String Variable Required 

Terminating Quote Required 

Too Many Subscripts 

Unbalanced Parenthesis 

Unrecognized Statement 

F.3 Coiqplle Errors 

Undefined Line 

The compiler detected a reference to a line number that was never used in 
the program. The reference will be adjusted to the first line number used 
that is greater than the line referenced. 

Undefined Label 

The compiler detected a reference to a line label that was never defined 
in the program. The reference will be adjusted to the first line number 
used in the program. 
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F>4 Execution Errors 



The following errors may occur during the execution of a program. They are all 
trappable by user written error routines unless stated otherwise. In general, the 
non-trappable errors indicate a programming logic error that could not be corrected 
at run time anyway. 

1 ESC-C 

Operator typed an ESC,C during execution of the program. 

2 Divide by Zero 

Occurs during expression analysis if an attempt is made to divide by zero. 

3 Overflow 

An integer expression resulted in a value outside the range -32767 to 
+32767 or a floating point exprression resulted in a value outside the 
range of -10''126 to +10''126. 

4 Underflow 

A floating point expression resulted in a value outside the range of 
-10'^-126 to +10''-126. 

5 Illegal Number 

Occurs on input type statements or string to numeric conversion type 

functions when the string of characters contains characters that are not 
allowed in numeric fields. 

6 SQR of Negative 

7 LOG of Zero 

8 LOG of Negative 

9 Insufficient Memory (non-trappable) 

Occurs during execution when a statement attempts to define additional 
working storage that exceeds the amount of memory available. 

10 Line not Found (non-trappable) 

Occurs on the statements: CHAIN, ELSE, GOSUB, GOTO, LINK, ON ERROR, ON, 
RESTORE, RESUME, RETURN, RUN, or THEN when the line number specified is 
not used in the program. 

11 Label not Found (non-trappable) 

Occurs on the statements: ELSE, GOSUB, GOTO, ON ERROR, ON, RESUME, and 
RETURN, when the line label specified is not defined in the program. 
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12 Return Stack Eaqpty (non-trappable) 

Occurs on the RETUBIN statement when there is no GOSUB in effect. 

13 Wend without While (non-trappable) 

Occurs on the WEND statement when there is no WHILE in effect. (A WHILE 
statement without a WEND is okay because the end of the program is 
encountered. ) 

14 Next without For (non-trappable) 

Occurs on the NEXT statement when there is no FOR in effect. (A FOR 
statement without a NEXT is okay because the end of the program is 
encountered. ) 

15 Insufficient Data 

Occurs on the INPUT statement when multiple fields are to be input and 
fewer fields are actually entered. 

16 Invalid File Number (non-trappable) 

Can occur on any of the file I/O statements when the channel number 
expression is less than 1 or greater than 16. Can also occur on any of 
the file functions. 

17 Resume without Error (non-trappable) 

Occurs on the RESUME statement when there is no error in effect. 

18 Invalid Address (non-trappable) 

Can occur on any of the statements or functions that access memory when 
the address is out of range. 

19 Invalid Separator 

Occurs on input statements. 

20 ON Range Error 

Occurs in the ON GOSUB or ON GOTO statement when the numeric expression is 
less than one or greater than the number of line references specified. 

21 Cend without Select (non-trappable) 

Occurs on the CEND statement when there is no SELECT in effect. (A SELECT 
statement without a CEND is okay because the end of the program is 
encountered. ) 

22 Type Mismatch (non-trappable) 

23 Invalid Zero Dimension (non-trappable) 

Occurs if an OPTION BASE 1 has been executed and a reference is made to 
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the zero subscript of an array. 

24 Inconsistent Usage (non-trappable) 

Occurs when a DIM or COMMON attempts to dimension a array with the same 
name as a varible already defined or after an array is dimension and a 
reference is made to the same name in a variable. 

25 Subscript Range (non-trappable) 

Occurs on any reference to a subscripted array less than or greater than 
the number of elements dimensioned in the array. 

26 Invalid Using (non-trappable) 

Indicates that a PRINT USING statement mask specified string when the 
expression field was numeric or the mask specified numeric when the field 
was string. 

27 File Is not Open 

Occurs on an attempt to CLOSE an I/O channel that is not currently open. 

28 File Is Open 

Occurs on an attempt to OPEN an I/O channel that is currently in use by 
another file. 

29 Invalid File Name 

Occurs on the OPEN, CHAIN, RUN, or LINK statement when the file or program 
name is invalid. File and program names must be at least two characters 
in length and start with a letter. Program file types must be BASIC or 
BASICOBJ. Can also occur on the OPEN statement when the device name is 
mis-spelled. 

30 File not Found 

31 Disk Full 

Indicates an attempt was made to add more data to the disk when there 
wasn't sufficient space available on the disk. Can only occur on 
sequential file format output. 

32 Directory Full 

33 Protected File 

Indicates an attempt was made to OPEN a file that was read protected, or 
an attempt was made to re-create a file that was delete protected, or an 
attempt was made to output to a file that was write protected. 
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34 Invalid Key 



Indicates that an input or output type statement used a key on a 

sequential format file or did not use the proper type of key for a direct 
or indexed format file. 



35 Wrong Access 



Occurs on input type statements when the file was opened for output or on 
an output type statement when the file was opened for input. 

36 Out of Data 

Occurs on the READ statement when there are no more DATA elements in the 
program. 

37 Option Must be First (non-trappable) 

Occurs on the OPTION BASE statement when there are variables defined. 
Should perform a CLEAR first. 

38 Ho USR Program (non-trappable) 

Indicates a reference to a USR function when there is not a USR program 
loaded. 

39 Invalid Drive Code (non-trappable) 

Occurs on the MOUNT statement when the drive is invalid or not attached. 

40 Program not Found (non-trappable) 

Occurs on a CHAIN, LINK, or RUN statement if the specified program cannot 
be found. 

41 Invalid File Format (non-trappable) 

Occurs on any attempt to input from a file created prior to version 5.31 
OASIS and not converted with the FILECONV program; using READ on a record 
that was output with a PRINT; or using INPUT on a record that was output 
with a WRITE. 

42 FNEND without DEF (non-trappable) 

Occurs when an FNEND statement is encountered outside of a user defined 
function definition. 

43 DEF not found (non- trappable) 

Occurs on any reference to a user defined function that is not defined in 
the current program. 



ERROR MESSAGES - 238 - BASIC 



APPENDIX G 
PROGRAM EXAMPLES 
G.l Exanqale One 



-10 INPUT "Radius of circle", R 

-20 PRINT "Diameter =";2.*R 

-30 PRINT "Area =";PI*R'"2. 

-40 PRINT "Circumference =";2.*PI*R 

-50 END 

-RUN 

Radius of circle? 2.5 
Diameter = 5 
Area = 19.63495408493 
Circumference = 15.70796326795 



G*2 Exaaq>le Tvo — String Conversion 

The following example illustrates a method of translating the individual characters 
of a string into the decimal equivalents. 

-AUTO 

10 DIM X(3) 

20 LET STRING$ = "CAT" 

30 X(0) = LEN(STRING$) 

40 FOR 1% = 1 TO X(0) 

50 X(I%) = ASC(MID$(STRING$,I%,1)) 

60 NEXT 1% 

70 PRINT "STRING$ = ";STRING$, "Length of STRING$ =";X(0) 

80 PRINT X(0),X(1),X(2),X(3) 

90 END 
100 
-RUN 

STRING$ = CAT Length of STRING$ = 3 
3 67 65 84 
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6*3 Ezan^le Three — Sine Wave 

This example will produce a sine wave on the console terminal. 

10 MAGNITUDE% = LINE(0)*3./8. 

20 MIDDLE% = LINE(0)/2. 

30 FREQUENCY = .175 

40 FOR J = TO 100 STEP FREQUENCY 

50 SINE = INT(MAGNITUDE%*SIN(J)) 

60 PRINT SINE;TAB(MIDDLE%+SINE);"*" 

70 NEXT 
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G.4 Exajiq>le Four - Bill of Materials 



-AUTO 

10 REM 

20 

30 

40 

50 

60 

70 

80 REM 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 

190 END 
200 
-RUN 



Accept Bill of Materials 
PRINT "How many items"; 
INPUT ITEM.COUNT% 
FOR 1% = 1 TO ITEM.C0UNT% 

INPUT Q(I%),P(I%) 

NEXT 
PRINT 
Display Bill of Materials, extension, and total 
PRINT "Item Quantity Price Amount" 
PRINT 

MASK1$ = " ##"&SPACE$(ll)&"//#//##"&SPACE$(9)&"$###.##"&SPACE$(7)&"$#, ##//.# 
FOR 1% = 1 TO ITEM.C0UNT% 

PRINT USING MASK1$,I%,Q(I%),P(I%),Q(I%)*P(I%) 

LET TOTAL = T0TAL+Q(I%)*P(I%) 

NEXT 
PRINT 

LET MASK2$ = " T0TAL"&SPACE$ (35) &"$#,###.////" 
PRINT USING MASK2$, TOTAL 



How many items? 5 
? 2,750 

25,23.50 

10,85.35 

145, .08 

75,2.35 



Item 



Quantity 



Price 



Amount 



2 

25 

10 

145 

75 



$750.00 
$ 23.50 
$ 85.35 
$ 0.08 
$ 2.35 



$1,500.00 
$ 587.50 
$ 853.50 
$ 11.60 
$ 176.25 



TOTAL 



$3,128.85 
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G«5 Exanqple Five 



The following sample illustrates the use of three functions (INP, INS, REP) and 
uses a disk file. 



-AUTO 

10 OPEN #1: "NAME. DATA: A", OUTPUT SEQUENTIAL \REM Create file 



20 PRINT CRT$("C"); 

30 PRINT AT$(1,6); "Name"; 

40 PRINT AT$( 1,7); "Address"; 

50 PRINT AT$ (1,8); "City"; 

60 PRINT AT$(33,8);"State"; 

70 PRINT AT$(53,8);"Zip"; 

80 PRINT AT$(1,9);"SSN"; 

90 OPTION PROMPT ":" 
100 R$ = "" 
110 PRINT AT$(5,6); 
120 LINPUT USING " 
130 IF INP = 26 THEN 999 
140 R$ = INS$(R$,0,0,A$) 
150 PRINT AT$(8,7); 
160 LINPUT USING " 
170 R$ = INS$(R$,1,0,A$) 
180 PRINT AT$(5,8); 
190 LINPUT USING " 
200 R$ = INS$(R$,2,0,A$) 
210 PRINT AT$(38,8); 
220 LINPUT USING " ", A$ 
230 R$ = INS$(R$,3,1,A$) 
240 PRINT AT$(56,8); 
250 LINPUT USING " ", A$ 
260 R$ = REP$(R$,3,3,A$) 
270 PRINT AT$(4,9); 
280 LINPUT USING " 
290 R$ = REP$(R$,4,0,A$) 
300 PRINT #liR$ 
310 GOTO 20 
320 END 
330 



\REM Clear screen 

\REM Display all the input fields 



\REM Initialize record 

\REM Position for first input field 

", A$ 
\REM Entry of CTRL/Z means end 
\REM A$ is first field 
\REM Position for second input field 

", A$ 
\REM A$ is second field 
\REM Position for third field 
", A$ 

\REM A$ is third field 
\REM Position for fourth field 

\REM A$ is second subfield of third 
\REM Position for fifth field 

\REM A$ is subfield 3 of third field 
\REM Position for sixth field 
A$ 
\REM A$ is fourth field 
\REM Create new record in file 
\REM Start over 



Lines 20 through 80, when executed, will display the field names 



Name 
Address 
City 
SSN 



State 



Zip 
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Lines 110 through 280, when executed, position the cursor after each field name and 
allow input. Each field input is saved in the string R$ with appropriate field 
delimiters. For instance: 

Name: JOSEPH E. BROWN 

Address: 1234 S.E. MAIN STREET 

City: SAN FRANCISCO State: CA Zip: 99999 

SSN: 123-45-6789 

The above entry will produce a record that looks like this: 

JOSEPH E. BROWN'"1234 S.E. MAIN STREET'^SAN FRANCISCO] CA] 99999^^123-45-6789 

The characters '" and ] are the field delimiters. They differ from the normal ASCII 
character by having the parity bit turned on. 
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6.6 Ezaaple Six - Sequential File I/O 

The following example illustrates file input and formatted output using the AT 
function. 

-AUTO 

10 OPEN #1: "NAME. DATA", INPUT SEQUENTIAL 

20 LOOP: PRINT CRT$("C"); 

30 1% = 

40 INPUT: LINPUT #1: A$ 

50 IF EOF(l) THEN GOTO EXIT 

60 PRINT AT$(6,I%+3);EXT$rA$,l,0); 

70 PRINT AT$(6,I%+4);EXT$(A$,2,0); 

80 PRINT AT$(6,I%+5);EXT$(A$,3,1);\L = LEN (EXT$ (A$ , 3 , 1 ) ) 

90 PRINT AT$(8+L,I%+5);EXT$(A$,3,2);\L = L+LEN(EXT$(A$,3,2)) 

100 PRINT AT$(10+L,I%+5);EXT$(A$,3,3); 

110 PRINT AT$(6,I%+6);EXT$(A$,4,0); 

120 1% = I%+5 \ IF I%+5 < 23 THEN GOTO INPUT 

130 WAIT 
140 GOTO LOOP 

150 EXIT: END 
160 

Assuming that the file "NAME" contains the record from Example 5 the display will 
be as follows: 

JOSEPH E. BROWN 

1234 S.E. MAIN STREET 

SAN FRANCISCO CA 99999 

123-45-6789 

There will be four names per page with two blank lines separating each name from 
the next. 
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G.7 Exaiople Seven - Indexed File I/O — Sequential Access 

The following example illustrates a simple sequential list to the primary printer 
of a name and address file, printing in label format. 

The format of the file being read is: Key = name, last name first, separated by a 
comma, space from first name; record = address, city, state, zip, etc. 

-AUTO 1000 

1000 OPEN #1: "NAMES. ADDRESS", INPUT INDEXED 

1010 OPEN #2: "PRINTERl", OUTPUT SEQUENTIAL, FORMAT 

1020 READ: READNEXT #1,KEY$: ADDR$,CITY$,STATE$,ZIP$ \REM Get next record 

1030 IF EOF(l) THEN 1170 \REM At end? 

1040 C=SCH(KEY$,1,", ") \REM Find end of last name 

1050 IF NOT C THEN 1070 \REM Not found - assume okay 

1060 KEY$=RIGHT$(KEY$,C+2)&LEFT$(KEY$,C-1) \REM Restructure name 

1070 PRINT #2: " ";KEY$ \REM Print the name 

1080 IF LEN(ADDR$^=0 THEN 1100 \REM If no address skip 

1090 PRINT #2: " ";ADDR$ 

1100 PRINT #2: " ";CITY$;" ";STATE$;" "; \REM Print city and state 

1110 IF LEN(ZIP$)=5 THEN 1130 \REM If zip full then skip 

1120 ZIP$=FORMAT$(ZIP$, "99999") \REM Format Zip 

1130 PRINT #2: ZIP$ \REM Print the zip code 

1140 IF LEN(ADDR$)=0 THEN PRINT #2: " " \REM Account for lost line 

1150 PRINT #2: "-" \REM Triple space for next 'label' 

1160 GOTO READ \REM Get another record 

1170 REM End of file - clean up 

1180 CLOSE #1 CLOSE #2 \QUIT 

1190 END 

In addition to illustrating the primary use of the READNEXT statement the above 
program shows a method of formating a number with leading zeroes printing (see line 
1120). 
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6.8 Ezaa^le Eight ~ Indexed File Create 

The following example illustrates a method of creating a new indexed file from a 
BASIC program when the programmer is unsure of the amount of contiguous disk space 
available. This routine allows the operator to specify the number of records 
desired in the file or allows the operator to specify that the file is to be 
allocated for the largest record count that will fit in the available space. 

3550 C1$=AT$(1,PAGE(0))&CRT$("EOS") 
3552 C2$=AT$(1,PAGE(0))&CRT$("E0S") 
3554 C5$=CHR$(7) REM Bell code 

3560 REM Create new file 

3561 REM SI = record length 

3562 REM S2 = file size in records 

3563 REM Keylen = 30 

3564 REM S is number of bytes to be used for record+key+overhead storage 

3565 REM SO is number of bytes to be used for sequential record pointers 

3566 REM VI is number of contiguous bytes available on disk 
3570 OPTION CASE "U" 

3580 PRINT Cl$; "Please mount the disk to contain the file";F$ 

3590 PRINT "in the appropriate drive (Y/N)? ";R V$="N" 

3600 S 1=158 \ REM S1=RECLEN 

3630 LINPUT USING V$,V$ 

3640 IF INP=17 OR INP=26 OR V$="" OR V$="N" THEN 3940 

3650 PRINT Cl$;"How many records do you wish allocated? "; 

3660 LINPUT USING " ",V$ 

3670 IF V$="" THEN S2=999999 \ GOTO 3700 

3680 IF NBR(V$)=0 THEN PRINT C5$; \ GOTO 3650 ELSE S2=VAL(V$)+3 

3690 IF S2<=0 THEN S2=999999 

3700 PRINT C2$;"What is the largest area on the disk? "; 

3710 LINPUT USING " ",V1$ 

3720 IF Vl$="" OR NBR(V1$)=0 THEN PRINT C5$; \ GOTO 3700 

3730 V1=VAL(V1$)*1024 \ REM Convert to bytes 

3740 S3=Sl+32 \ REM KEYLEN=30, overhead=2, S3=KEYLEN+RECLEN+2 

3750 IF S2>V1/S3 THEN S2=INT(V1/S3) \ REM S2 must be realistic 

3760 IF M0D(S2,4)<>3 THEN S2=S2-1 \ GOTO 3760 

3770 IF S3*S2+S2*2>V1 THEN S2=S2-4 \ GOTO 3770\REM Make more realistic 

3779 REM Take into account the overhead of rounding up to nearest 1024 

3780 S=S2*S3 \ IF MOD (S, 1024) >0 THEN S=S+1024-MOD(S,1024) 
3790 S0=S2*2 \ IF MOD(S0,512)>0 THEN S0=S0+512-MOD (S0,512) 

3800 IF S+S0>V1 THEN S2=S2-4 \ GOTO 3780\REM Make sure it will fit! 

3810 REM Make S2 a prime number 

3820 FOR I=S2 TO 3 STEP -4 

3830 FOR J=3 TO SQR(I) STEP 2 

3840 J1=I/J 

3850 IF INT(J1)=J1 THEN 3870 

3855 NEXT 

3860 GOTO 3880 

3870 NEXT 

3880 S2=I 

3890 CLOSE #1 

3900 CSI "CREATE "&F$&" (IND KEY 30 REG "&STR(S1)&" FILE "&STR$(S2) 

Note that line 3570 will force input to be upper case only. Line 3640 validates 
the Y/N input — default to NO — and checks for exit (CTRL/Q or CTRL/Z indicate exit). 
Lines 3680 and 3720 validate the input for a numeric value. 
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Line 3750 forces S2 to be a value that is close to the value to be used. Line 3760 
then forces S2 to be the next lowest value whose remainder is 3 when divided by 4 
(a requirement for indexed file sizes). Line 3770 then forces S2 to be a value 
that would fit in the available space but does not take into account any rounding 
to the nearest IK boundary. Lines 3780 through 3800 then adjust S2 to account for 
rounding, keeping modulo 4 of S2 = 3. 

Lines 3810 through 3880 then force S2 to be a prime number (another requirement of 
indexed file sizes). The STEP value of -4 keeps the modulo 4 of S2 = 3. 
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